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DOCUMENT 

,REM„ 



IDENTIFICATION 



PROOUCT COOE: AC-T6P1A-MC 

PRODUCT TITLE: CXIECAO IEC11-B DEC/XU MODULE 

PRODUCT DATE: JANUARY 1984 

DEPARTMENT: CSS, NASHUA 

AUTHOR: JOHN LEVESQUE 

COPYRIGHT (C) FIRST, I960, 196?; 
DIGITAL EQUIPMENT CORPORATION, MAyNARO, MASSACHUSETTS 0) 754 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY 9E USED 
ANO COFIED ONLY IN ACCORDANCE WITH THE TERMS 0* SUCH LICENSE 
ANO UITH THE INCLUSION OF THE A80VE COPYRIGHT NOTICE. VHlS 
SOFTWARE. OR ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR 
OTHERWISE MADE AVAILABLE TC ANY OTHER PERbON. NO TITLE TO 
ANO OWNERSHIP OF THE SOFT* \,RE IS HEREBY TRANSFEREE 
r nt IffOflMATION IN THIS _ )F TWARE IS SUBJECT TO CHAICE WITHOUT 
NOTICE ANO SHOULD NOT BE CONSTRUED AS A COMMITMENT By DIGITAt 
EGWIPMENT CORPORATION. 

DIGITAL ASSISES NO RESPONSIBILITY FOR THE USE OR RE I t AB U I Tt 
OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED &\ DIGITAL. 



mm /x 



ci 
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SEQ 2 



ABSTRACT 



IEC IS AN IOMOOX WHICH EXERCISES THE IEC11-A AND THE IECU-B 
IEEE BUS ADAPTER.CTHIS EQUATES TO AN IFC11-C). 
IT EXERCISES THE IECll-A ANO IECU-B BY OOING DATA TRANSFERS, 
ANO BY DOING A RANOOM TALKER AND LISTENER DATA TEST, ALL ERRORS 
DETECTED ARE REPORTED ON THE CONSOLE TTY, 



REQUIREMENTS 



HARDWARE : 

A. HDP11 CAPABLE OF SUPPORTING DEC/XH, 

B. IECli-A IEC BUS CONTROLLER CM7985^. 

C. IEC11-B DMA OPTION FOR IECll-A (M7915). 

D. ANY USER IEC BUS DEVICES MUST BE DISCONNECTED. 

E. A BC08S-01 CABLE IS REQUIRED BETWEEN THE IECll-A AND IECll-B, 

SOFTWARE: 

DEC/XU MONITOR, VERSION 6. 

STORAGE; 

1. DECIMAL WORDS: 2131 

2. OCTAL WORDS: 4123 

3. OCTAL BYTES: 10246 

PASS DEFINITION 

ONE PASS OF THE IEC MODULE CONSISTS OF TEN CYCLES OF THE TEST, 



EXECUTION TIME 

• M«MM»MMMMMtH»MM 

ONE PASS OF IEC RUNNING Al.QNfc ON A PQP-U/34 TAKES APPROXIMATELY 
35 SECONDS. 



Dl 
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SEQ 3 



CONFIGURATION REQUIREMENTS 

HfMMMMMtMtMMMMMMMMHMMMMMMMM 



PARAMETERS 

OVA- 
VCT- 
BR1- 
BR2- 
OVC- 
5R1- 
SR2- 
SR3- 
SR4- 



DESCRIPTION UNIQUE TO THIS MODULE 

DEVICE ADDRESS - IEC11-A 
VECTOR ADDRESS - IEC11-A 
BUS REQUEST LEVEL - IEC11-A 
BUS REQUEST LEVEL - IEC11-B 
DRIVE COUNT CN/A) 
DEVICE ADDRESS - IEC11-B 
VECTOR ADDRESS - IEC11 B 
IEEE BUS ADDRESS - IEC11-A 
IEEE BUS ADDRESS - IEC11-B 



DEFAULT 

160010 

270 

6 

1 

160020 

274 

35 

36 



REQUIRED PARAMETERS: 
NONE 



DEVICE/OPTION SETUP 

MAKE CERTAIN THAT THE IECU-A AND IEC11-B ARE CONNECTED AND READY, 
THIS ENTAILS INSTALLING A BC08S-01 CABLE FROM IECU -ACM7985) Jl 
TO IECU-BCM7915) Jl, 

MODULE OPERATION 

MMMtMM»MM»MHtHM>»H» 

TEST SEQUENCE: 

A, TEST DATA TRANSFER WITH INTERUPT, CHECKING THAT: 



1. 
2. 
3. 
4. 
5. 

6. 
7. 

8. 



* TCS' PRODUCES ' ILLMSGf. • 

INTERUPT OCCURS WHEN SENOING LISTENER ADDRESS 

•LACS* IS SET AFTER LISTENER ADDRESSING AND 'GTS 

INTERUPT OCCURS WHEN SENDING TALKER ADDRESS 

'DATAACC* DOES NOT COME UP ON 2ND DATA BYTE 

BEFORE 1ST DATA BYTE IS READ 

1ST DATA BYTE SENT • 1ST r>ATA BYTE RECEIVED 

•DATAACC 1 COMES UP ON 2ND DATA BYTE AFTER 

READING 1ST DATA BYTE 

2N0 DATA BYTE SENT - 2N0 DATA BYTE RECEIVED 



B, TEST RANDOM TALKER ANO LISTENER DATA, CHECKING THATj 



1. 
?. 

3. 

4. 
5. 



INTERLPT OCCURS WHEN SENOING A DATA EtTE 

DATA BYTES SENT • DATA BYTES RECEIVED 

•DATAACC COMES UP WHEN SENDING A OATA BYTE 

WITH 'LASTBYTE' 

'END' COMES UP WHEN LAST BYTE SENT 

LAST BYTE SENT * LAST BYTE RECEIVED 






HEW 



Fl 
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SEQ 4 



TEST WliH IECU-B AS TALKER AND IECU-A AS LISTENER, 



1, 

e, 

3. 
4, 
5. 



SET SACS 

SET SIC 

BUILD TALKER ANO LISTENER ADDRESSES. 

START TALKING - 256 BYTES WORTH. 

COMPARE DATA BYTES FROM BUF1 AND BUF2. 



D, TFST WITH IEC11-A AS TALKER AND IECU-B AS LISTENER. 



1. 
2. 
3. 
4. 
5. 



SET SACS, 

SET SIC. 

BUILD LISTENER AND TALKER ADDRESSES, 

DO 256 BYTE TRANSFERS. 

COMPARE DATA BYTES FROM BUF1 AND BUF2, 



8 



OPERATION OPTIONS 



NONE 



NON-STANDARD PRINTOUTS 

ALL ERROR PRINTOUTS CONSIST OF TWO SECTIONS. THE FIRST SECTION 
IS NONSTANDARD, ANO CONSISTS OF AN ERROR COOE (IE, ERROR NN) 
THAT IS A NUMERICAL CROSS REFERENCE TO THE SAME ERROR CONDITION 
ANO ERROR NUMBER IN THE PDPU DIAGNOSTIC (CZIECAO). 
THE SECOND SECTION CONSISTS OF A STANOARD DEC/XU 
HARO ERROR (HRDER) CALL. WITH A DUMP OF THE CONTENTS OF THE 
DEVICE REGISTERS ANO THE CONTENTS OF THE DATA BUFFER (DATBUF) 
IN THE FOLLOWING OROER : 

CIR. SMR, IOR, VSR, DATBUFCFOR IECU-A PORTION Or TEST) 

CIR, SMR. IOR. VSR, CSR, BCR, BAR, MCR, DATBUFCFOR IECU-B 
PORTION OF TEST) 



10 STARTING PROCEDURE 



A. LOAD ANO START THE DEC/XU PROGRAM ACCORDING TO 
THE DEC/XU USER'S MANUAL (AC-8?34D MC ) . 

B. ENSURE THAT THE DEVICE ADDRESSES ANO VECTOR AODRESSES 
ARE CORRECT FOR THE IECU-A AND IECU -H BUS CONTROLLER 



U 



L I b T I N G 

♦♦♦♦♦♦♦♦♦♦♦♦♦ 



Fl 
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SEQ 5 



,>15 

216 

2X7 000000 
000000 



000000 






000000 


111 


105 


000003 


101 


040 


000005 


000 




000006 


160010 




000010 


000270 




000012 


300 




000013 


240 




000014 


000001 




000016 


000000 




000020 


000000 




000022 


000000 




000024 


000000 




000026 


150000 




000030 


000252' 




000032 


000252' 




000034 


000000 




00CD36 


000012 




000040 


000000 




000042 


000000 




000044 


oooooo 




000O46 


000000 




000050 


OOOOX) 




00005? 


oooooo 




0OO0S4 


oooooo 




000056 






000056 


oooooo 




000060 


oooooo 




00O062 


oooooo 




000064 


oooooo 




000066 


oooooo 




000070 


oooooo 




000072 


oooooo 




000074 


oooooo 




000076 


oooooo 




000100 


oooooo 




000102 






000102 


oooooo 




000104 






000104 


oooooo 




000106 






000106 


oooooo 




000110 


oooooo 




000112 


C002V 




000114 


oooooo 




000116 


oooooo 




000120 


uocooo 




QGG122 


QQQQQG 





,SBTTL DDXCOM HEADER 

IOMODX <IECA >, 160010, 270, 6, 5, 0.10. .O.BUFIN, 512 . ,512. 

MODU E 150000, IECA , 160010,270,6,5,0, 10. ,0,BUFIN, 512. ,512. 

.TITLE IECA DEC/XU SYSTEM EXERCISER MODULE 

j DDXCOM VERSION 6.4 28-JAN-82 

.LIST BIN 
I***************** ******** ********************************************** 

BEGIN: 

103 MODNAM; .ASCII /IECA / iMQDULE NAME. 



XFLAG: 

ADDR: 

VECTOR: 

BR1: 

BR2: 

DVIDlj 

SRI 

SR2 

SR3 

SR4 

I ****** 

STAT: 

INITj 

SPOINT; 

PASCNTj 

ICONT: 

ICOUNT- 

SOFCNT; 

HRDCNT : 

SOfPAS: 

HRDPAS: 

SYSCNT: 

RANNUM; 

CONFIG: 

RES1 

RES2 

SVRO 

SVR1 

SVR2 

SVR3 

SVR4 

SVR5 

SVR6 

CSRA 

SBADR: 

ACSR: 

WASAOR: 

ASTAT; 

FRRTYP: 

ASB: 

AWAS: 

RSTRF: 

WDTO 

WDFR 

INTR 

IONUM; 



.BYTE OPEN 

160010*0 

270*0 



PRTY6*0 
PRTY5*0 



.BYTE 
.BYTE 
0*1 
OPEN 
OPEN 
OPEN 
OPEN 
************************** 

150000 

START 

MODSP 



10. 


















OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 

OPEN 

OPEN 

OPEN 
OPEN 
RESJRT 
OPFN 

OPEN 
OPEN 




USED TO KEEP TRACK OF WBUFF USAGE 

1ST DEVICE AUDR. 

1ST DEVICE VECTOR. 

1ST BR LEVEL. 

.?ND BR LEVEL. 

DEVICE INDICATOR 1. 

SWITCH REGISTER 1 

SWITCH REGISTER 2 

SWITCH REGISTER 3 

SWITCH REGISTER 4 

***«***«*****. ************************* 

STATUS WORD. 
M00ULE START ADDR. 
MODULE STACK POINTER. 
PASS COLNTER. 

* OF ITERATIONS PER PASS-10. 
LOC TO COUNT ITERATIONS 

LOC TO SAVE TOTAL SOFT ERRORS 
LOC TO SAVE TOTAL HARD ERRORS 
LOC TO SAVE SOFT ERRORS PER PASS 
LOC TO SAVE HARD ERRORS PER PASS 

* OF SYS ERRORS ACCUMULATED 

HOLDS RANDOM WHEN RANO MACRO IS CALLED 

RESERVED FOR MONITOR USE 

RESERVED FOR MONITOR USE 

RESERVED FOR MONITOR USE 

LOC TO SAVE RO. 

LOC TO SAVE Rl. 

LOC TO SAVE R2. 

LOC TO SAVE R3. 

LOC TO SAVE R4. 

LOC TO SAVE R5. 

LOC TO SAVE R6. 

ADDR OF CLflRENT CSR. 

ADDR OF GOOD DATA, OR 

CONTENTS OF CSR. 

ADDR OF BAD DATA, OR 

STATUS REG CONTENTS, 

TYPE Of ERROR 

EXPECTED DATA. 

ACTUAL DATA. 

RESTART ADDRESS AFTER END OF PASS 

WORDS TO MEMORY PER ITERATION 

UORDS FROM MEMORY PER ITERATION 

OF INTERRUPTS PER ITERATION 

MODULI IDENTIFICATION NUMBER *Q 
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000124 
000126 
000130 
000132 
000134 
000136 
000140 
000142 
000144 
000146 
000150 



005060' 
000000 
000000 
001000 

oooooo 

000000 
001000 

oooooo 
oocooo 
oooooo 

oooooo 

000040 



000252 







Gl 
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RBUFVAt 


BUFIN 




RBUTPA: 


OPEN 




RBUFEA; 


OPEN 




RBUF'SZt 


512. 




UBUFPA; 


OFEN 




WBUFEA: 


OPEN 




W8UFRQ- 


512. 




UBUFSZ: 


OPEN 




CDERCT: 


OPEN 




CDWOCT: 


OPEN 




FREE; 


OPEN 






,REPT 


SPSIZ 




.NLIST 






.WORD 







.LIST 






.ENDR 





SEQ 6 



iREAD BUFFEF VIRTUAL ADDRESS 
{READ BUFFEf PHYSICAL ADDRESS 
;READ BUFFER EA BITS 
I SIZE OF THE READ BUFFER 
{WRITE BUFFER PHYSICAL ADDRESS 
{WRITE BUFFER EA BITS 
jWRTTE BUFFER SIZE REQUESTED 
{WRITE BUFFER SIZE AVAILABLE 
{CDATA/DATCK ERROR COUNT 
jCDATA/DATCK WORD COUNT 
{RESERVED FOR FUTURE USE 
{MODULE STACK STARTS HERE, 



MODSP: 
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SEQ 7 



220 
221 

3 "* 3 

223 
224 

225 



250 

23 1 
232 

233 
234 

23^ 

236 
237 
238 
239 
240 
?41 
24? 
243 
244 
245 
246 
24 7 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
256 
259 
260 
261 
262 
263 
264 
265 
266 
26/ 
268 
26^ 
2/0 
2 71 
2U 1 
2/3 
2/4 
> ** 



.SBTTL rtACRO DEFINITIONS, 



.MACRO 


SET. SACS 






BIS 


0SACS.CIRCR5) 






♦ ENOM 


SET. SACS 






.MACRO 


SET.LASTBYTE 






BIS 


♦LASTBTTE.CIRCR5) 






.ENOM 


SET.LASTBYTE 






.MACRO 


SET.MC 






BIS 


0MC,CIR(R5) 






.ENOM 


SET.MC 






.MACRO 


MASTERCLEAR 






BtS 


♦BIT5.CIMIP5) 






BIS 


0BIT3,CSR(R4) 






.ENOM 








.MACRO 


SET.INTEN6 






BIS 


*INTENB,CIR(R5) 






.ENOM 


SET.INTENB 






. MACRO 


GO 






BIS 


RBUFEA # CSRCR4) 






BIS 


01.CSRCR4") 






,ENOH 








.MACRO 


SET.CA 






BIS 


*TCA,SMR(R5) 






,ENOM 


SEf.CA 






.MACRO 


SET.CS 






BIS 


0TCS.SMRCR5) 






,ENOM 


SET.CS 






.MACRO 


SET. GTS 






BIS 


*GTS < SMRCR5) 






.ENOM 


SET. GTS 






.MACRO 


SET, SIC 






BIS 


•SIC.SMRCR5) 






,ENDM 


SET. SIC 






.MACRO 


CLR.STATtCHGt 






BIC 


0STATECHGt,ClR(R5) 






.ENOM 


CLR.STATECHGE 






.MACRO 


Cl R.OATAACC 






BIC 


*0ATAACC.CIRtR5) 






.ENOM 


Cl R.OATAACC 






.MACRO 


TST.O AHIT.REG.GOUO 






BIT 


0ABIT,REU(R5) 










s ABIT CLEAR IN I 


REG ? 


BF'U 


GOUO 


J TfeS. 

1 NO. 




.fcNUM 


TST,0 







n 
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278 
279 

280 
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SEQ 8 



t'Ol 

282 

283 

284 

285 

286 

287 

288 

269 

290 

291 

292 

293 

2^4 

295 

296 

297 

298 

299 

'500 

301 

302 

303 

304 

30b 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

31/ 

318 

319 

320 

321 

322 

323 

324 

32b 

326 

32 7 

328 

329 

3 30 

331 

3 V 

335 



L5; 



L$: 



L»: 



L*i 



.MACRO 

Tsr 

BEQ 
JMP 
NOP 
,ENDM 

.MACRO 
BIT 

BNE 

.ENOM 

.MACRO 

MOV 

BREAK 

DEC 

BNE 



.MfCRO 

MOV 

BIT 

BNE 
BREAK 
DEC 
BNE 



.MACRO 

MOV 
EXIT 



. MACRO 

JSR 

MOV 

MSGN 

HRDE.R 

NOP 

NOP 



TEST Ffc,ER,?L$ 
FE 

L.I 
ER 



jTEST FOR 'FORCE ERROR' SET. 
t IF FORCE ERROR SET GO TO NEXT ERROR MSG. 
iJUMP TO NEXT ERROR, 
j IF NO FORCE ERROR THEN JUST CONTINUE. 



TST.l ABIT.REG.GOIFl 
0ABIT,REG(R5) 

G0IF1 

TST.l 

DELAY TIME,?L* 
*TIME .DELCNT 

DELCNT 
Lt 



.ENOM DELAY 



l ABIT SET IN REG ? 
i rFS. 
} NO. 



; DELAY ( TIME US ). 
j BREAK TO MONITOR, 
j TIMEOUT? 
j NO. 
1 YES. 



. MACRO WAI T . T IME , ABi T , REG , GOIFO , ?L I 

MOV OTIME, DELCNT » WAIT ( TIME US ) FOR ABIT « 0. 

BIT 0ABIT.REGCR5) 

j BIT ABIT » 0? 

BEQ GOIFO , YES. 

BREAK j NO. BREAK TO MONITOR. 

DEC DELCNT ; TIMEOUT? 

BNE LI i NO. 

j YES. 
.ENOM WAIT.O 



UIAIT.1 



gtime.oelcnt 
*abit,reg(r5) 

goif: 

DELCNT 
L$ 



TIME, ABIT, REG, G0IF1,?L* 

.• WAIT r TIME US ) FOR ABIT 



1. 



.ENOM WAIT, I 



UATT.INT 
R5.h^R5 



.ENOM WAIT, INT 



ERROR XRtF.ECODE 
PC, E SETUP 
OECODE .F.RRTYP 
MSG' XRfcF* 
REQTAB 



j BIT ABIT • 1? 

i YES. 

j NC. BREAK TO MONITOR. 

{ TIMEOUT? 

i NO. 

I YES. 



; SAVt CONTENTS OF RS. 

j WAIT FOR INTERUPT - EXIT TO MONITOR. 



I SET UP FOR ERROR CALL. 
j SET ERROR CODE TYPE. 

j X-REF ERR CODE 6 DESCRIPTIVE MSU* 
l CALL &RRQR. PRINT ALL RUB. 



Jl 
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334 

335 

336 

337 

338 

339 

340 

341 

34 2 

343 

344 

345 

316 

34? 

348 

349 

350 

351 

355 

353 

354 L$: 

355 

356 

357 

355 

359 

360 

361 

3d? 

363 

364 

365 

366 

367 
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.ENDM 


ERROR 


.MACRO 


SCOPE 


NOP 




NOP 




.ENDM 


SCOPE 


.MACRO 


ERRB XREF.ECODE 


JSR 


PC.ESETB 


MOV 


DECODE, ERRTYP 


MSGN 


MSG'XREF' 


HROER 


REGTAB 


NOP 




NOP 




.ENDM 




.MACRO 


COMPARE, BRNCH, ?L $ 


MOV 


0400, R3 


Buri 




BUr~2 




DEC 


R3 


BEQ 


BRNCH 


CMPB 


(R2)»,CR1)» 


BEQ 


I S 


.ENOM 




.MACRO 


BUFl 


MOV 


RBUTVA,R1 


.ENOM 




.MACRO 


but? 


MOV 


RBLFVA.Ra 


ADD 


$256, »R2 


.£NDM 





SEQ 9 



I SET UP FOR ERROR CALL 

i SET ERROR CODE TYPE 

jX-REF ERROR CODE 6 DESCRIPTIVE 

I CALL ERROR, PRINT ALL REGS. 



MESSAGE, 



jSET UP FOR 256. COMPARES 



jKEEP TRACK 

I If DONE GO TO NEXT TEST 

j COMPARE DATA 

j IF GOOD DO IT AGAIN 



\<l 



IKCA DEC/X11 


SYSTEM EXERCISER 


EQUATES 




370 




371 




37,? 




373 




374 




375 




376 


000000 


377 


000001 


378 


000004 


379 


000040 


380 


000100 


381 


000400 


382 


010000 


583 


020000 


384 


100000 


385 




386 


000002 


387 


000002 


388 


000001 


389 


000004 


390 


000100 


391 


000400 


392 


001000 


393 


010000 


394 


020000 


395 




396 


000004 


397 




398 


000005 


399 


000006 


400 


000000 


401 


C00001 


402 


000010 


403 


000100 


404 




405 


000002 


406 




407 


000004 


408 




409 


000006 


410 




411 




412 




413 




414 




415 


177!?? 


416 


0003 7 7 


417 


177400 
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.SBTTL EQUATES 



SEQ 10 



: DEVICE REGISTERS AND BIT DEFINITIONS 



i CONTROL 6 INTERUPT REGISTER. 



CIR- 





"MCS- 




LASTBYTE- 


MC- 




INTEN8- 




ST'TECHGE- 


ILLMSGE 


■ 


ENO- 




DATAACC 


■ 


SMR- 


2 


TCA- 




TCS- 




GTS- 




SIC- 




CACS- 




CSBS- 




LACS- 




SIAS- 




IOR» 


4 


I0RH8- 


5 


VSR- 


6 


CSR- 





EF- 




MCB- 




IE- 




BCR- 


2 


BAR- 


4 


MCR- 


6 



BITO 

BIT2 

BIT5 

BIT6 

BIT8 

BIT12 

BIT13 

BIT15 

i STATE 
BIT1 

BITO 

BIT2 

BIT6 

BIT8 

BIT9 

BIT12 

BITX3 



SYSTEM CONTROL ACTIVE STATE, 

LAST BYTE. 

MASTER CLEAR. 

INTERUPT ENABLE, 

STATE CHANGE . 

ILLEGAL MESSAGE. 

ENO OF BLOCK. 

DATA ACCEPTED. 



£ MESSAGE REGISTER. 



BITO 
BIT3 
BIT6 



TAKE CONTROL ASYNCHRONOUSLY, 
TAKE CONTROL SYNCHRONOUSLY. 
GO TO STANDBY. 
SENO INTERFACE CLEAR. 
CONTROLLER ACTIVE STATE. 
CONTROLLER STANDBY S ME. 
LISTENER ACTIVE STATl . 
INTERFACE CLEAR ACTIVE STATE. 



; INPUT C OUTPUT REGISTER. 

j HIGH BYTE OF INPUT/OUTPUT REGISTER 
; VECTOR SWITCH REGISTER, 
jCQNTROL STATUS REGIS 1LR IEC11-B 
{ENABLE FUNCTION 
iMASTER CLEAR U Cll-B 
I INTERRUPT ENABLE 

jBYTE COUNT REGISTEP 

jBUS ADDRESS REGISTER 

jMATCH CHARACTER REGISTER 



I GENERAL EQUATE 1 , 



ALL- 

LOBYTE- 

HI8YTE» 



177/77 

3/7 

177400 



i ALL BITS (BITS 15-0). 

i LO ORDER BITS (Bf TS 7 0). 

j HI ORDER BITS (BITS 15-6). 



LI 
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SEQ 11 



420 
m21 
425 
426 
427 
428 
429 
430 
431 
432 

433 
434 
435 
4 36 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
s"** 
4bo 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 

465 
466 



467 
46e 

469 

a m 
471 



000252 
000252 



000252 
000252 

000260 
000264 
000270 
000274 
000300 
000302 
000306 
000312 
000316 
000324 
000332 
000336 
000340 
000344 
000350 
000352 
000356 
000362 
000364 
000372 
000376 
000400 
000406 
000 J 10 
000414 
000422 



000426 

000426 

^0C42( 

OJ0432 

00O4 34 

000440 

000442 

000442 

0OC442 

000450 

000450 

0004 r >6 

000456 

QQQ464 



016705 
012725 
116/15 
016705 
010504 
062704 
016702 
062702 
012767 
012767 
005767 
001402 
016704 
005^67 
001402 
016702 
0C5767 
001403 
016767 
005767 
001403 
016767 
000240 
012712 
116762 
005067 



177524 
004632' 
177516 
177506 

000010 
17 7476 
000004 
000035 
000056 
177460 

177452 
177450 

177442 
177440 

177432 
177426 



.SBTTL START - RESTART - TEST 



START: 
RESTRT: 



SET UP VECTOR, BR LEVEL, AND R5 AS DEVICE POINTER. 



104415 000000' 000124 



005562 
005552 



005514 



177420 005476 

004656' 

177373 C00002 

005444 



1$: 

3$j 

4$: 



GETPA RBUTVA 
GETPA$, BEGIN, RBUFVA 

MOV VECTOR, R5 

MOV 0INTSVC,(R5)* 

MOVB BR1.CR5) 

MOV AD0R.R5 

MOV R5,R4 

ADD 010, R4 

MOV VECTOR, R2 

ADD 04, R2 

MOV *35,AADR 

MOV 036.BADR 

TST SRI 

BEQ 1$ 

MOV SR1,R4 

TST SR2 

BEQ 2% 

MOV SR2.R2 

TST SR3 

BEQ 3$ 

MOV SR3.AADR 

TST SR4 

BEQ 4$ 

MOV SR4,BADR 

NC 

.'iOV 0INTSVB.CR2) 

MOVB BR2.2CR2) 

CLR DATBUF 



jGET PHYSICAL ADDRESS F«OM 16-BIT RBUFVA 

l GiiT VECTOR ADDRESS. 

j SET COMPLETION INTERUPT VECTOR. 

; SET BREAK LEVEL. 

t R5 - DEVICE BASE ADDRESS. 

{SET DEFAULT IEC11-B ADDRESS 

{SET DEFAICT IECil-B VECTOR. 

{SET DEFAULT IEC11-A IEEE ADDRESS 

j SET OEFAULT IECil-B IEEE ADDRESS 

{CHECK FOR OPERATOR SET ADDRESSC IEC11 -B ) 

j IF NOT SET CHECK SR2 

{SET UP OPERATOR SPECIFIED ADDRESS. 

{CHECK FOR OPERATOR SPECIFIED VECTORC IEC11 -B) 

{IF NOT SET CHECK SR3 

{SET OPERATOR SPECIFIED VECTOR 

{CHECK FOR OPERATORSPECIFIED IEEE ADDRESSC IEC11-A) , 

j IF NOT SET CHECK SR4 

{SET OPERATOR SPECIFIED IEEE BUS ADDRESSC iECU -A) 

{CHECK FOR OPERATOR SPECIFIED IEEE ADDRESSC IEC11 -B ) 

{IF NOT SET ASSUME DEFAULTS AND CONTINUE. 

{SET OPERATOR SPECIFIED IEEE BUS ADDRESSC ILC11 -B) 

{CONTINUE 

{SET INTERRUPT VECTOR 

{SET B BREAK LEVCL 

{ CLEAR THE DATA BUFFER. 



l TEST DATA TRANSFER WITH INTERUPT, 
TSTIEA; 



j SET UP AND TEST THE IECU-A AND IEC11-B, 



00576 7 005450 

001402 

000167 000210 

000240 



052765 000040 000000 
052765 000001 000000 
052 765 000100 000002 





TEST 


FE.ER1 




TST 


FE 




BEG 


64$ 




JMP 


ER1 


64» ; 


NOP 




Tl: 


St T , MC 






BIS 


0MC.CIRCR5) 




SET. SACS 




BIS 


0SACS,CIRCR5) 




SET. SIC 






BIS 


«SIC,SMR(R5) 




DELAY 


3.QQ 



jTEST FOR 'FORCE ERROR' SET. 
{IF FORCE ERROR SET GO TO H7 < ERROR MSG, 
{JUMP TO NEXT ERROR, 
j IF NO FORCE ERROR THEN JUST CONTINUE. 

{ MASTER CLEAR. 

j SYSTEM CONTROL ACTIVE STATE. 

} SEND INTERFACE CLEAR. 

I (GIVE STATECHGE TIME TO CLEAR). 



M 'I 
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SEQ 12 



00^464 
00u472 
0004 72 
000476 
000502 
000506 

472 000510 
000510 

473 00C516 
000516 
000524 
000524 
000530 
000534 
000540 

47A 000542 
00054 2 

475 000550 
000550 

476 000556 
000556 
000560 

477 000562 
000562 
0CO570 
000570 
000574 
000600 
000604 

478 000606 
000606 

479 0006i4 
000614 
000622 

000630 
0006o2 

000636 
000642 
000646 

430 000650 
000650 
000654 
000662 
000662 
000670 



012767 000100 005370 



104407 
104407 
005367 
001371 



042765 

012767 

104407 
104407 
005367 
001371 

042765 

052765 

000240 
000240 



:. 04407 
104407 
005367 
001371 



052765 

012767 
032765 

001032 

104407 
104407 
005367 
001365 



004 767 
012767 



000000' 
000000' 
005354 



000400 000000 
000100 005336 



64$: 



000000 
OOOCOO 
005322 



000400 OOCC^O 
000004 000002 



000000 
000000 ' 
005256 



004026 
000025 



65$ 



012767 000100 005272 



66$: 



000001 000002 

1$: 
000100 005240 
010000 000000 67$ 



000000 
000000 
005214 



ER1 



i77224 
104403 000000' 006134 



000670 104405 QQQQQQ 1 006,110,' 

000676 000240 
000 700 QQQ240 



0100, DELCNT 



M0\* 
BREnK 

BREM<S,B;GIN 
BREAKS, BEGIN 
DEC DELCNT 

BNE 64$ 



CLR.STATECHGE 

BIC 0STArECHGE,CIR(R5) 

DELAY 100 

MOV 0100, DELCNT 

BREAK 

BREAK!, BEGIN 

BREAK! .BEGIN 

DEC DELCNT 

BNE 65$ 



} DELAY ( 100 US ). 

; BREAK TC MONITOR. 

} TEMPORARY RETURN TO MONITOR 

j THEN CONTINUE AT NEXT INSTRUCTION. 

j TIMEOUT? 

; NO. 

i YES. 

: CLEAR INTERRUPT CONDITIONS 



; (GIVE SIAS TIME TO CLEAR), 
j DELAY ( 100 US ). 
j BREAK TO MONITOR. 
TEMPORARY RETURN TO MONITOR.... 
THEN CONTINUE AT NEXT INSTRUCTION. 
TIMEOUT? 
NC. 



CLR.STAfECHGE 

BIC 0STATECHGE,CIR(R5) 

SET. GTS 

BIS 0GTS,SMR(R5) 

SCOPE 

NOP 

NOP 

DELAY 

MOV 

BREAK 

BREAK$, BEGIN 

BREAKS, BEGIN 



I 



YES. 

CLEAR 



STATE CHANGE 



GO TO STANDBY STATE 



100 

0100, DELCNT 



DEC 
BNE 

SET.CS 

BIS 

WAIT.t 

MOV 

BIT 



DELCNT 
66$ 



(GIVE CSBS TIME TO SET). 
DEL A* ( 100 US ). 
BREAK TO MONITOR. 
I TEMPORARY RETURN TO MONITOR.... 
{THEN CONTINUE AT NEXT INSTRUCTION, 
j TIMEOUT? 
j NO. 



0TCS.SMRCR5) 
100,ILLMSGE,CIR,T2 
0100. DELCNT 
0ILLMSGE,CIR(R5) 



YES, 
TAKE 



CONTROL SYNCR 



T2 



I WAIT ( 100 US ) FOR ILLMSGE » 1 



ILLMSGE - 1? 



BNE 
BREAK 

BREAM, BEGIN 
BREAKS, BEGIN 



DEC 
BNE 



DELCNT 
67$ 



481 000702 



; BIT 
; YES. 

; NO. BREAK TO MONITOR. 
j TEMPORARY RETURN TO MONITOR.... 
;THEN CONTINUE AT NEXT INSTRUCTION, 
TIMEOUT? 
NO. 
YES. 

NO ILLEGAL MESSAGE. 
SET UP FOR ERROR CALL, 
SET LRROR CODE TYPE, 
X-REF ERR CODE £ DESCRIPTIVE 
{ASCII MESSAGE CALL WITH COMMON HEADER 
l CALL ERROR, PRINT ALL REGS. 

HRDERS, BEGIN, REGTAB { 

NOP 
NOP 
TEST FE.ER.2 



ERROR 
JSR 
MOV 
MSGN 



46,25 
PCESETUP 

025,ERRTYP 

MSG46 
MSGNS, BEGIN, MSG46 
HRDER REGTAB 



MSG 



M 



Nl 
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O0O7C2 
C00706 
000710 
000714 

482 000716 

483 000716 

484 000724 
000724 

485 000732 
000732 
000740 
000740 
000744 
000730 
000754 

486 CJ0756 
000756 
000760 

487 000762 

488 000770 
4S9 000776 

000776 

490 001004 

491 001010 

492 001014 
4^3 001J20 

001020 
001024 
001024 

494 001^30 
001030 
001034 

C01042 
001042 
001050 



495 



496 
497 
498 



499 
500 
501 

502 



001056 
001060 
001062 
001062 
001066 
001070 
0010 74 
001076 
001076 
001076 
001076 
001100 
001102 
001110 
001116 
001116 
001124 



005767 005174 

001402 

000167 000114 

000240 

042765 177400 000000 

052765 000002 000002 

012767 000100 005122 

104407 000000' 

104407 000000' 

005367 005106 
001371 



000240 
000240 

0*2765 
012767 

052765 
016700 
066700 
110065 

010567 

104400 



004767 
012767 



177400 OOOCOO 
001076' 005072 

000100 000000 
005070 
005072 
000004 

177050 

000000' 



003646 
000023 



.177044 
104403 000000' 006140 



200 
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TST 


FE 




BEQ 


64$ 




JMP 


ER2 


64$: 


NOP 




T2: 








BIC 


<>HIBYTE.CIR(R5) 




SET.CA 






BIS 


4TCA,SMR(R5) 




DELAY 


100 




MOV 


OIOO.DELCNT 


64$: 


BREAK 






BREAKS 


.BEGIN 




BREAKS 


.BEGIN 




DEC 


DELCNT 




BNE 


64$ 




SCOPE 






NOP 






NOP 






BIC 


WTBYTE.CIRCR5) 




MOV 


0I3.IRTN 




SET.INTENB 




BIS 


*INTENB,CIR(R5) 




MOV 


LBAS.RO 




ADD 


AADR.RO 




MOVB 


RO.IOR(Rb) 




WAIT. INT 




MOV 


R5.SVR5 




EXIT 






EXIT$, 


BEGIN 


ER2: 


ERROR 


50.23 




JSR 


PCESETUP 




MOV 


023.ERRTYP 




MSbN 


MSG50 




MSGN$, 


BEGIN, MSG50 




HRDER 


REGTAB 



SI Q 13 



001050 104405 000000' 006110' 



000210 
000240 

003767 005014 

001402 

000167 000054 

000240 



000240 

000240 

042765 177400 000000 

012767 001216' Cv/4752 

052 765 000100 000000 

016700 004746 



64$ 
T3: 
T4: 



;TEST FOR 'FORCE ERROR' SET. 
{IF FORCE ERROR SET GO TO NEXT ERROR MSG. 
;JUMP TO NEXT ERROR, 
j IF NO FORCE ERROR THEN JUST CCNTINUE. 

; CLEAR INTERUPT CONDITIONS, 
j TAKE CONTROL ASYNCR. 

j (GIVE STATECHGE L CACS TIME TO SET) 
j DELAY ( 100 US ). 
j BREAK TO MONITOR. 

{TEMPORARY RETURN TO MONITOR 

? THEN CONTINUE AT NEXT INSTRUCTION. 
TIMEOUT? 
NO. 
YES. 



{ CLEAR INTERUPT BITS. 

; SET UP INTERUPT RETURN ADDRESS. 

I ENABLE INTERUPT, 

{SET UP LISTENER BASE ADDRESS 
{ADD IN IEEE BUS ADDRESSC IECll-A) 
{ SEND LISTENER ADDRESS. 

{ SAVE CONTENTS OF R5. 

{ WAIT FOR INI ERUPT - EXIT TO MONITOR. 

it«IT TO MONITOR. MODULE UAIT FOR INTERRUPT 

{ NO INTERRUPT TO LISTENER ADDRESSING. 
{ SET UP FOR ERROR CALL, 
; SET ERROR COOE nPE. 
{ X-REF ERR CODE £ DESCRIPTIVE MSG, 
{ASCII MESSAGE CALL WITH COMMON HEADER 
; CALL ERROR. PRINT ALL REGS. 

HRDER*, BEGIN.REGTAB { 

NOP 

NOP 

TEST .E.ER3 

TST FE j TEST FOR ' FO«CF_ ERROR' SET, 

BEQ 64$ {IF FORCE ERROR SET GO TO NEXT ERROR MSG. 

JMP ER3 j JUMP TO NEXT ERROR. 

NOP {IF NO FORCE ERROR THEN JUST CONTINUE. 



SCOPE 

NOP 

NOP 

BIC 

MOV 

SET 

31$ 

MOV 



0HIBYTE.C1HIPO 
0T5,IRT J 
INTENB 

«INTENB,ClFKRb) 
TBAS.RO 



{ CLEAR INTERUPT BITS. 

{ SEi UP IN f ERUPT RETURN ADDf.ESS 

j ENABLE INTERUPT. 

{SET UP TALKER BASE ADDRESS 
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503 
504 

SOS 



506 



001130 
001134 
001140 
00 1 140 
001144 
001144 

001150 
001150 
00 U54 
001162 
001162 
001170 



066700 
110065 

010567 
104400 



004 767 

012767 



004 752 
000004 

176730 

000000' 



003526 
000023 



ER3; 



104403 000000 ' 



176724 
006150' 





B? 
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ADD AADR.RO 

MOVB R0.I0RCR5) 

WAIT, INT 

MOV R5.SVR5 

EXIT 

EXIT!, BEGIN 


ERROR 

JSR 

MOV 

MSGN 

MSGM, 

HRDER 


53.23 

PC.ESETUP 
♦23.ERRTYP 
MSG53 
BEGIN, MSG53 
REGTAB 



001170 104405 000000' 006110' 



001176 
001200 
001202 
001202 
001206 
001210 
001214 
001216 
001216 
00X216 
001224 
001224 
001232 
001232 
001236 
001242 
001246 



511 001250 
001250 



507 



506 
509 

510 



512 



001260 
001260 
001264 
001272 
001272 
001300 



513 



514 
515 



001306 
001310 
001312 
001312 
001316 
001320 
001324 
001326 
001326 



000240 
000240 

005767 
001402 
000167 

000240 



004674 
000044 



052765 000004 000002 

012767 000100 004630 

104407 000000* 

104407 000000' 

005367 004614 
001371 



64$: 

T5j 



64$; 



032765 010000 000002 
001256 001023 



004767 003416 

012767 000025 176614 

104403 000000* 006144 



ER4} 



001300 104405 000000* 006110' 



000240 
000240 

00576? 
001402 
000167 
000240 



004564 
000110 



112765 177777 000004 



64 t ; 
T6i 



SEQ 14 



ADO IN IEEE BUS ADDRESSC IECU -A) 
ADDRESS RO AGAIN. 

SAVE CONTENTS Of R5. 

UAIT FOR INTERUPT - EXIT TO MONITOR. 
EXIT TO MONITOR, MODULE WAIT TOR INTERRUPT 

NO INTERRUPT TO TALKER ADDRESSING. 
SET UP FOR ERROR CALL, 
SET ERROfl COOE TYPE. 
X-REF ERR COOE C DESCRIPTIVE MSG. 
I ASCII MESSAGE CALL WITH COMMON HEADER 
I CALL ERROR. PRINT ALL REGS. 



I 



HRDER*. BEGIN, REGTAB j 

NOP 

NOP 

TEST FE.ER4 

TST FE i TEST FOR 'FORCE ERROR' SET. 

BEQ 641 | IF FORCE ERROR SET GO TO NEXT ERROR MSG. 

JMP ER4 ,JUMP TO NEXT ERROR. 

NOP j IF NO FORCE ERROR THEN JUST CONTINUE. 



SET. GTS 

BIS *GTS,SMR(R5) 

DELAY 100 

MOV 0100.DELCNT 

BREAK 

BREAK!, BEGIN 

BREAK*, BEGIN 

DEC DELCNT 

BN£ 641 

TST.l LACS.SMR.T6 
BIT *LACS,SMR(R5) 

BNE T6 

ERROR 52,25 

JSR PC, E SETUP 
MOV 025.ERRTYP 
MSGN MSG52 
MSGNI, BEGIN. MSG52 
HRDER REGTAB 



t GO TO STANDBY STATE. 

I (GIVE CSBS TIME TO SET). 

l DELAY ( 100 US ). 

i BREAK TO MONITOR. 

I TEMPORARY RETURN TO MONITOR 

I THEN CONTINUE AT NEXT INSTRUCTION, 

I TIMEOUT? 

i NO. 

I YES. 



, LACS SET IN SMR ? 
j YES. 
j NO. 

i NO LACS. 

j SET UP FOR ERROR CALL. 
I SET ERROP COOE TYPE. 
i X-REF ERR COOE 6 DESCRIPTIVE MSG, 
jASCII MESSAGE CALl WITH COMMON HEADER 
I CALL ERROR, PRINT ALL REGS. 



I 



HRDERI, BEGIN, REGTAB 



J 



I 



NOP 

NOP 

TEST 

TST 

BEQ 

JMP 

NOP 

MQVB 



FE.ER5 
FE 
641 
ER5 



4ALL.IQRCR5) 



I TEST FOR 'FORCE ERROR' SET, 
I If FORCE ERROR SET GO TO NEXT FRROR MSG. 
iJUMP TO NEXT ERROR. 
lIF NO FpRCt FRROR THEN JUST CONTINUE. 

t SEND A DATA BYTE, 



c; 



c 
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SEQ 15 



516 001334 
001334 
001342 
001343 
001346 
001352 
001356 



012767 000100 004520 



517 

518 

519 
520 



001360 
001360 
001366 
001366 
001374 
001400 
001400 
001406 
001406 
001412 
001416 
001422 



521 001424 
001424 

001432 

522 001434 
001434 
001440 
001446 
001446 
001454 



001462 
001464 

523 001466 
OOi 466 
0014 72 
001474 
001500 

524 001502 

525 001502 

526 001510 
5?7 001514 
5.!8 001522 

529 001524 

530 001530 
001530 
001534 
001542 
001542 
001550 



1.04407 
104407 
005367 
001371 



000000 
000000 ' 
004504 



032765 
001423 



000240 
000240 

005767 
0O1402 
000167 
000240 

016567 
000367 
126727 
001425 
000367 

004 767 
012767 



004354 

004 344 

003146 
000001 



64$; 



042765 100000 000000 

042765 0C0400 000000 

105365 000004 

012767 000100 004454 

104407 000000' 

104407 000000' 

005367 004440 
001371 



65$} 



100000 000000 



004767 003242 

012767 000044 176440 

104403 000000' 006154 



ER5: 



001454 104405 000000* 0061 10 1 



004410 
000030 



000004 004364 
004360 



64 i : 

T7: 



000377 



ER6s 



176344 
104403 000000' 006160' 



001550 104405 QQQQQQ' 006110' 



100 

0100, DELCNT 



DELAY 

MOV 

BREAK 

BREAK! .BEGIN i 

BREAKS, BEGIN \ 

DEC DELCNT 

BNE 641 

CLR.DATAACC 

BIC O0ATAACCCIRCR5) 

CLR.STATECHGE 



BIC 


0STATECHGE,CIR(R5 


DECB 


I0RCR5) 


DELAY 


100 


MOV 


0100, DELCNT 


BREAK 




BREAK! 


.BEGIN i 


BREAK! 


.BEGIN \ 


DEC 


DELCNT 


BNE 


65$ 


TST.O 


DATAACC, CI3.T7 


BIT 


0DATAACC.CIRCR5) 


BEQ 


T7 


ERROR 


54,44 


JSR 


PC.ESETUP 


MOV 


044.ERRTYP 


MSGN 


MSG54 


MSGN I, 


BEGIN, MSG54 , 


HRDER 


REGTAB 



\ ( GIVE DATAACC TIME TO SET). 

I DELAY ( 100 US ). 

t BREAK TO MONITOR. 

TEMPORARY RETURN TO MONITOR 

THEN CONTINUE AT NEXT INSTRUCTION. 

I TIMEOUT? 

\ NO. 

i YES. 

I CLEAR DATA ACCEPTED. 

I CLEAR STATE CHANGE. 
) 

I SEND NEXT DATA BYTE. 

\ DELAY ( 100 US ). 

t BREAK TO MONITOR. 

TEMPORARY RETURN TO MONITOR 

"THEN CONTINUE AT NEXT INSTRUCTION. 

i TIMEOUT? 

I NO. 

J YES. 



i DATAACC CLEAR IN CIR ? 

i rES. 

i NO. 

j DATA ACCEPTED TO SECOND DATA BYTE 

l SET UP FOR ERROR CALL. 

I SET ERROR COOE T>PE. 

I X-REF ERR COOE I DESCRIPTIVE MSG . 
ASCII MESSAGE CALL WITH COMMON HEADER 

l CALL ERROR. PRINT ALL REGS. 



I 



HRDER*, BEGIN, REGTAB j 

} **** ***************************************+***«*****«***«***** 

NOP 

NOP 

TEST FE.ER6 

TST FE 

BEQ 64$ | 

JMP ER6 j 

NOP i 



MOV I0R(R5),G0T 

SUAB GOT 

CMPB GOT. 0377 

BEQ T8 

SUAB GOT 

ERROR 55,1 

JSR PC, F SETUP 

MOV OI.ERRTyP 

MSGN MSG55 

MSGN$, BEGIN, MSG55 

HRDER REGTAB 



I TEST FOR 'FORCE ERROR' SET. 
IF FORCE ERROR SET GO TO NEXT ERROR MSG. 
JUMP TO NEXT ERROR. 
IF NO FORCE ERROR THEN JUST CONTINUE. 

GET IOR CONTENT. 



DATA OK? 
YES. 

NO. REBUILO DATA PATTERN RFAD. 
DATA CHECK ON IEC TALKER OR LISTENER, 
SET UP FOR ERROR CALL. 
SET ERROR COOE TYPE. 
X-REF ERR CODE C DESCRIPTIVE MSG. 
(ASCII MESSAGE CALL WITH COMMON HEADER 
« CALL ERROR, PRINT ALL REGS. 



J 



HROERI, BEGIN, REGTAB i 

j *.*.*,*.***.*. **** 4 *.**.* *.**i ***** ****** *** **.****.**** ,*.*** *,***********«* 
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SEQ 16 



531 



532 
533 



534 



535 



536 
537 
538 
539 
540 
541 
542 



001556 
001560 
001562 
001562 
001566 
001570 
001574 
0015 76 
001576 
001576 

001604 

001606 
001606 
001612 
001620 
001620 
001626 



001634 
0C1636 
001640 
001640 
001644 
001646 
001652 
001654 
001654 
001662 
001666 
001674 
001676 
001702 
001702 
001706 
001714 
001714 
001722 



543 
544 



545 
546 
54 7 
548 
549 



001730 
001732 

001734 
001734 
001740 
001742 
001746 



000240 
000240 

005767 
001402 
000167 
000240 



032765 
001023 



004 767 
012767 

104403 



001626 104405 



000240 
000240 

005767 
001402 
000167 
000240 

016567 
000367 
126727 
001425 
000367 

0O4767 
012767 



004314 
000012 

100000 000000 



003070 
000025 

000000' 
000000' 

004236 
000030 



000004 
004206 
004202 

004172 

002774 
000001 



176266 
006164' 

006110* 





NOP 






NOP 






TEST 


FE.ER7 




TST 


FE 




BEQ 


64$ 




JMP 


ER7 


64 i; 


NOP 




T8i 








TST.l 


DATAACC.CIR.T9 




BIT 


4DATAACC.CIRCR5) 




BNE 


T9 


ER7: 


ERROR 


56,25 




JSR 


PC.ESETUP 




MOV 


025,ERRTYP 




MSGN 


MSG56 




MSGN$, 


BEGIN, MSG56 




HRDER 


REGTAB 



104403 000000' 



004212 
000376 

176172 
006170' 



64$: 

T9; 



ER8: 



001722 104405 000000' 006110 



000240 
000240 



005767 
001402 
000167 
000240 



004142 
000072 



I TEST FOR 'FORCE ERROR' SET, 
I IF FORCE ERROR SET GO TO NEXT ERROR MSG. 
tJUMP TO NEXT ERROR, 
i IF NO FORCE ERROR THEN JUST CONTINUE. 



DATAACC SET IN CIR ? 
YES. 
NO. 

NO SECOND "DATA ACCEPTED". 
SET UP FOR ERROR CALL. 
SET ERROR CODE TYPE. 
X-REF ERR CODE £ DESCRIPTIVE MSG 
ASCII MESSAGE CALL WITH COMMON HEADER 
j CALL ERROR, PRINT ALL REGS. 



1 



HRDERI, BEGIN. REGTAB i 

NOP 
NOP 
TEST FE.ER8 

TST FE tTEST FOR 'FORCE ERROR 1 SET, 

BEQ 64$ j IF FORCE ERROR SET GO TO NEXT ERROR MSG. 

JMP ER8 j JUMP TO NEXT ERROR. 

NOP i IF NO FORCE ERROR THEN JUST CONTINUE. 



MOV I0R(R5).G0T 

SWAB GOT 

CMPB GOT, 0376 

BEQ TlO 

SWAB GOT 

ERROR 57,1 

JSR PC.ESETUP 

MOV Ol.ERRTYP 

MSGN MSG57 

MSGN$, BEGIN, MSG57 

HRDER REGTAB 



GET SECOND DATA BYTE. 

IS SECONO OATA BYTE OK? 
YES. 

NO, REBUILD PATTERN READ. 
DATA CHECK ON SECOND BYTE. 
SET UP FOR ERROR CALL. 
SET ERROR COOE TYPE. 
X-REF ERR COOE L DESCRIPTIVE MSG. 
lASCII MESSAGE CALL WITH COMMON HEADER 
t CALL ERROR, PRINT ALL REGS. 



i 



HRDER$. BEGIN, REGTAB j 

NOP 
NOP 

T FE.ER9 

t TEST FOR 'FORCE ERROR' SET. 
j IF FORCE ERROR SET GO TO NEXT ERROR MSG. 
I JUMP TO NEXT ERROR, 
j IF NO FORCE ERROR THEN JUST CONTINUE. 

RANDOM TALKER AND LISTENER DATA TEST. 

THIS TEST CAN NOT BE CALLED SEPARATELY, DUE TO THE NECESSARY. 
SETUP TO BRING THE BUS INTC THIS STATE. 





TEST 


FE.ER9 




TST 


FE 




BEQ 


64$ 




JMP 


ER9 


64$: 


NOP 




i * * 







iW^Agm 



E2 



550 
551 
552 

553 001750 

554 001750 

555 001754 

556 001760 

557 001766 
001766 
001770 

558 001772 

559 002000 

560 002006 

561 002006 

562 002014 
002014 

563 002022 

564 002030 
002030 
002034 
002034 

565 002040 
002040 
002044 
002052 
002052 
002060 



002066 
002070 
566 

567 002072 
002072 
002076 
002100 
002104 

568 002106 

569 002106 

570 002106 

571 002114 

572 002120 

573 002124 

574 002132 

575 002134 
002134 
002140 
002146 
002146 
002154 
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SEQ 17 



005067 
005067 
042765 

000240 
000240 
012767 
012767 



004110 
004112 
177400 000000 



002106' 004070 
001000 004060 



TlOi 



042765 17/400 000000 

052765 000100 000000 

016765 004044 000004 

010567 176040 

104400 000000' 

004767 002636 

012767 000023 176034 

104403 000000' 006174 



Til! 



ER9? 



002060 104405 000000* 006110* 



000240 
000240 



005767 
001402 
000167 
000240 



016567 
105067 
0O0367 
026767 
001423 

004 767 
012767 



004004 
000030 



000004 
003754 
003750 
003744 



002542 

000001 



104403 000000 



003760 
003740 

175740 
006200 



64$ 

T12 
T13 



ERlOt 



002154 104405 000000* 006110' 



RANMOD 
DATBUF 
£HIBYTE,CIR(R5) 



*U2,IRTN 

•nooo, LOOP 



CLR 

CLR 

BIC 

SCOPE 

NOP 

NOP 

MOV 

MOV 

BIC 0HIBYTE.CIRCR5) 

SET.INTEN8 

BIS *INTENB,CIR(R5) 

MOV 0ATBUT.I0RCR5) 

WAX V. INT 

MOV R5.SVR5 

EXIT 

EXIT*, BEGIN 



j DISABLE RANDOM MODE, 
j CLEAR DATA BUFFER, 
j CLEAR INTERUPT BITS, 



SET INTERUPT RETURN ADDRESS, 
INIT LOOP COUNTER. 

CLEAR INTERUPT BITS. 
ENABLE INTERUPT?. 

SEND A DATA BYTE. 

SAVE CONTENTS OF R5. 

WAIT FOR INTERUPT - EXIT TO MONITOR. 
EXIT TO MONITOR. MODULE WAIT FOR INTERRUPT 



ERROR 60,23 
JSR PC.ESETUP 

MOV 023.ERRTYP 

MSGN MSG60 

MSGN*, BEGIN, MSG60 
HRDER REGTAB 



NO INTERRUPT TO DATA SENDING. 
SET UP FOR ERROR CALL. 
SET ERROR COOE TYPE. 
X-REF ERR COCE 6 DESCRIPTIVE MSG. 
I ASCII MESSAGE CALL WITH COMMON HEADER 
I CALL ERROR, PRINT ALL REGS, 

HRDER* , BEGIN, REGTAB i 

NOP 
NOP 



TEST 

TST 

BEQ 

JMP 

NOP 



FE.ER10 

FE 

64 t 

ER10 



MOV I0R(R5),G0T 

CLRB GOT 

SWAB GOT 

CHP GOT, DATBUF 

BEQ T14 

ERROR 62,1 

JSR PC.ESETUP 

MOV •l.ERRTYP 

MSGN MSG62 

MSGN*, BEGIN, MSG62 

HRDER REGTAB 



:TEST FOR * FOfXfc ERROR' GET, 
l IF FORCE ERROR SET GO TO NEXT ERROR MSG. 
iJLTIP fO NEXT ERROR. 
I IF NO FORCE ERROR THEN JUST CONYINUE. 



READ BACK DATA BYTE. 
PREPARE DATA, 

DATA OK? 
YES. 

DATA CHECK ON IEC BUS. 
SET UP FOR ERROR CALL, 
SET ERROR COOE TYPE. 
X-REF ERR COOE £ DESCRIPTIVE MSG 
{ASCII MESSAGE CALL WITH COMMON HEADER 
j CALL ERROR, PRINT ALL REGS. 



i 



002162 
002164 



000240 
000240 



hRDCR*. BEGIN, REGTAB j 

NOP 
NOP 



I^T 0EC ^tA& s T E V E ^ ERCIStR H MACR0 meo ° 
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SEQ 18 



576 

577 002166 
002166 
002172 
002174 
002200 

578 002202 

579 002202 

580 002206 

581 002210 

582 002214 

583 002222 

584 002224 

585 002232 

586 002232 
002232 

587 002236 

588 002244 

589 002252 

590 002256 

591 002260 

592 002264 

593 002272 
002272 

594 002300 

595 002306 
002306 
002314 

002322 
002324 
002324 
002330 
002334 
002340 

596 002342 
002342 
002346 
002354 
002354 
002362 



002370 
002372 
59 7 

598 002374 
002374 
002400 
002402 
002406 

599 002410 

600 002410 
002410 



005767 
001402 
000167 
000240 

005767 
001011 
005267 
026727 
001271 
012767 



104417 
016767 
042767 
005367 
001253 
005067 
012767 

052765 
016765 

012767 
032765 

001032 

104407 
104407 
005367 
001365 



004 767 
012767 



003710 
000142 

003656 

003656 
003652 

177777 



000000' 
175612 
177400 
003610 

003600 
000222 

000004 
003566 

000100 
100000 



000000 ' 
000000* 
003522 



002334 
000025 



104403 000000 



003626 
003620 



64$: 
T14} 



000400 

00363P 

T15: 



003600 

000000 
000004 

003546 
000000 64 $ : 



175532 
006204* 



002362 104405 000000' 006110* 



000240 
000240 



00576 7 
001402 
00016 7 
000240 



TEST FE.ER11 

TST FE 

BEQ 64$ 

JMP ERli 
NOP 

TST RANMOD 

BNE T15 

INC DATBUF 

CMP DATBUF,0400 

BNE Til 

MOV 4-1, RANMOD 

RAND 

HANDS, BEGIN 

MOV RANNUM.DATBUF 

3IC O1774O0.DATBUF 

DEC LOOP 

BNE Til 

CLR RANMOD 

MOV P222, DATBUf* 

SET.LASTBYTE 

BIS 0LASTBYTE.CIRCR5 

MOV DATBUF, I0RCR5) 

WAIT.l 100, DATAACC, CIR, 

MOV 0100.DELCNT 

BIT *DATAACC,CIR(R5) 

BNE T16 
BREAK 

BREAK!. BEGIN 
BREAKS .BEGIN 
DEC DELCNT 
BNE 64$ 

ER11: ERROR 63,25 

JSR PC.ESETUP 
MOV *25,ERRTYP 
MSGN MSG63 
MSGNI, BEGIN, MSG63 
HRDER REGTAB 
j*********************** 

HRDERf, BEGIN, REGTAB 

j *********************** 

NOP 
NOP 



003502 
000012 



j TEST FOR 'FORCE ERROR' SET. 
I IF FORCE ERROR SET GO TO NEXT ERROR MSG. 
lJUMP TO NEXT ERROR, 
j IF NO FORCE ERROR THEN JUST CONTINUE. 



RANDOM 
YES. 

NO. 
ALL 
NO. 
YES 



MODE? 



BUILD NEXT DATA PATTERN 
DATA CO-377) TRIED? 



SWITCH TO RANDOM MODE, 



) 
T16 



I GET A RANDOM NUMBER (PATTERN). 

I MOVE PATTERN ONTO STACK, 

j BUILD A BYTE. 

j BUMP LOOP COUNT, DONE? 

j NO. 

I SWITCH BACK TO NORMAL MOOE . 

I PREPARE LAST DATA PATTERN. 

i INDICATE "LAST BYTE". 

j LOAD IT. 

j WAIT C 100 US ) FOR DATAACC ■ 1. 



032765 020000 000000 





TEST 


FE.PR12 




TST 


FE 




BEQ 


64$ 




JMP 


ER12 


64$: 


NOP 




Ti6: 








TST.l 


END.CIR.T1/ 




BIT 


0END.CIRCR5) 



, BIT DATAACC - 1? 

I YES. 

} NO. BREAK TO MONITOR, 
I TEMPORARY RETURN TO MONITOR.... 
j THEN CONTINUE AT NEXT INSTRUCTION. 

l TIMEOUT? 

j NO. 

I YES. 

{ NO DATA ACC WHEN SENDING LAST BYTE 

l SET UP FOR ERROR CALL. 

j SET ERROR COOE TYPE. 

l X REF ERR COOE L DESCRIPTIVE MSG, 
{ASCII MESSAGE CALL WITH COMMON HEADER 

j CALL ERROR. PRINT ALL REGS. 

*****************^********************«* 

J 
******<".>-******************************* 



I TEST FOR 'FORCE ERROR* SET, 
I IF FORCE ERROR SE f GO TO NEXT ERROR MSG 
j JUMP TO NEXT ERROR, 
j IF NO FORCE ERROR THEN JUST CONTINUE. 



j END SET IN CIR V 



G? 
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SEQ 19 



002416 001023 



601 002420 
002420 
002424 
002432 
002432 
002440 



002446 
002450 
602 

603 002452 
002452 
002456 
002460 
002464 

604 002466 

605 002466 

606 0024 74 

607 002500 
fOS 002504 

609 002512 

610 002514 
002514 
002520 
002526 
002526 
002534 



002542 
002544 

611 002546 
002546 
002552 
002554 
C02560 

612 

613 

614 

615 

616 002562 
002562 
0025 70 

617 002576 

618 002600 
002600 

619 002604 

620 002606 

621 002610 

622 002614 
623 

624 002616 



004 767 
012767 



002256 
000025 



ER12: 



175454 
006210' 



104403 000000' 
002440 104405 000000' 006110 



000240 
000240 



005767 
001402 
000167 
000240 

016567 
105067 
000367 
026727 
001 123 

004 767 
012767 



003424 
000030 



000004 
003374 
003370 
003364 



002162 
000001 



104403 000000 ' 



000240 
000240 

005767 
001402 
000167 
000240 



003330 
000154 



052764 
005003 

016701 
110321 
005203 
022703 
001373 



000040 
000010 



175320 
000400 



003400 
000222 

175360 
006214' 



64$; 
T17: 



ER13; 



002534 104405 000000' 006110 



64$: 

j TEST 

j 
i 



BNE 



T17 



ERROR 64,25 
JSR PC,ESETUP 
MOV 025,ERRTYP 
MSGN MSG64 
MSGN$, BEGIN, MSG64 
HRDER REGTAB 



YES. 
NO. 

NO "END" TO "LAST BYTE". 
SET UP FOR ERROR CALL. 
SET ERROR CODE TYPE. 
X-REF ERR CODE L DESCRIPTIVE M5G. 
jASCII MESSAGE CALL WITH COMMON HEADER 
I CALL ERROR, PRINT ALL REGS. 



;**********************************************************++*** 

HRDER* , BEGIN, REGTAB j 

t ********* ****************************************************** 

NOP 
NOP 



TEST 

TST 

BEQ 

JMP 

NOP 



FE,ER13 
FE 
64$ 
ER13 



I0R(R5),G0r 

GOT 

GOT 

GOT, 9222 

TST4B 

65,1 

PC.ESETUP 

•l.ERRTYP 

MSG65 
MSGN$, BEGIN, MSG65 
HRDER REGTAB 



MOV 

CLRB 

SWAB 

CMP 

BEQ 

ERROR 

JSR 

MOV 

MSGN 



«TEST FOR 'FORCE ERROR' SET, 
{IF FORCE ERROR SET GO TO NEXT ERROR MSG. 
;JUMP TO NEXT ERROR, 
j IF NO FORCE ERROR THEN JUST CONTINUE. 

READ BACK DATA BYTE, 



PREPARE FOR CHECK. 
DATA OK? 
YES. 

DATA CHECK ON "LA5T BYTE". 
SET UP FOR ERROR CALL. 
SET ERROR CODE TYPE. 
X-REF ERR CODE L DESCRIPTIVE MSG, 
jASCII MESSAGE CALL WITH COMMON HEAOER 
j CALL ERROR. PRINT ALL REGS. 

I*************************************************************** 

HRDERI, BEGIN, REGTAB j 

;******4******************************************************** 

NOP 



SOP 
TEST 

TST 
BEQ 
JMP 
NOP 
IEC11-B 



FE.ER14 
FE 
64$ 
ER14 



j TEST FOR 'FORCE E3R0R' SET. 



j IF FORCE ERROR SET GO TO NEXT ERROR MSG. 

,JUMP TO NEXT ERROR. 

»IF NO FORCE ERROR THEN JUST CONTINUE. 
IECU-B IS TALKER AND IEC11-A IS LISTENER 
SEND 256 CHARACTERS OVER IEEE BUS. 



000000 
000000 



TST4B: MASTERCLEAR 



1$: 



BIS 
BIS 
CLR 

BUF1 

MOV 

MOVB 

INC 

CMP 

BNE 

SET. SACS 



06IT5,CIR(R5) 
*eiT3,CSR(R4) 
R3 

RBUFVA.R1 
R3,(Rl)» 
R3 
0400, R3 

1$ 



I CLEAR IEC WORLD 

l SET LIP COLIN TER 
jGET BUFFER ADDRESS 

lLOAD CHARS IN BUFFER 

I CHECK FOR END OF BUFFER 

{SET SACS 



H2 



;ECA DEC'Xll SYSTEM 
iTART - RESTART 
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SEQ 20 



002616 

625 002624 
002624 

626 002632 
002632 
002640 
002640 
002644 
002650 
002654 



627 
628 
629 
630 
631 
632 
633 



002656 
002664 
002670 



002700 
002706 

002714 
002716 
002716 
002722 
002726 
002732 

634 002734 
002734 
002740 
002746 
002746 
002754 



635 



636 

637 
638 
639 
640 
641 



002762 
002764 
002 766 
002766 
002772 
0027 74 
003000 
003002 
003002 
003010 
003014 

003020 
003024 
003024 
003032 

003040 
003042 
003042 



052765 

052765 

012767 

104407 
104407 
005367 
001371 

042765 
01*700 
066700 



000001 

000100 

000050 

000000 ' 
000000* 
003206 



177400 
003206 
003210 



000000 
000002 
003222 



64$; 



000000 TB2: 



002674 110065 000004 
002700 



012767 
032765 

001032 

104407 
104407 
005367 

001365 



004 767 
012767 



000050 
100000 



OCOOOO' 
000000' 
003130 



002012 
000025 



003154 
000000 



64$ i 



ER14: 



104403 000000 



175140 
006220 



002754 104405 000000' 006110 



000240 
000240 

005767 
001402 
000167 
000240 

042765 
016700 
066700 

110065 

012 767 
032765 

001032 
104407 



C03U0 
000060 



64$; 
CI: 



100000 000000 

003064 

003066 

000004 

000050 003030 
100000 000000 64$: 



000000' 



BIS 

SET. SIC 

BIS 

DELAY 

MOV 

BREAK 

BREAK*, BEGIN 

BREAK* .BEGIN 

DEC DELCNT 

BNE 64 $ 



#SACS,CIR(R5) 



0SIC.SMRCR5) 

50 

050, DELCNT 



BIC 
MOV 
ADO 



MOVB 
UAIT.l 
MOV 
BIT 



0HIBYTE.CIRCR5) 

TBAS,RO 

BADR.RO 



{SET SIC 

jGIVE IT SOME TIME 

i DELAY C 50 US ). 

i BREAK TO MONITOR. 

jTEMPUKARY RETURN TO MONITOR 

I THEN CONTINUE AT NEXT INSTRUCTION 

I TIMEOUT? 

I NO. 

1 YES. 

j CLEAR INTERRUPTABLE BITS 
I SET TALKER BASE ADDRESS 
j ADD IN IEC11B ADDRESS 



BNE 
BREAK 

BREAKi, BEGIN 
BREAK!, BEGIN 
DEC DELCNT 
BNE 64 * 



R0.I0RCR5) 

50, DATAACC, CIR, CI 

050, DELCNT 

*DATAACC,CIRCR5) 

CI 



ERRB 66,25 

JSR PC.ESETB 

MOV *25,ERRTYP 

MSGN MSG66 t 

MSGN*. BEGIN. MSG66 j 

HRDER REGTAB 

HRDtR*. BEGIN, REGTAB i 

j************************ 

NOP 

NOP 

TEST FE,ER15 

TST FE 

BEQ 64$ { 

JMP ER15 j 

NOP ; 

CLR.DATAACC 

BIC 0DATAACC.CIRCR5) 

MOV LBAS.RO i 

ADD AADR,RO j 



j SET INDIVIDUAL TALKER 
jSEND IT DOWN IEC BUS 

jHAS INFO BEEN ACCEPTED? 
i WAIT ( 50 US ) FOR DATAACC - 1. 

j BIT DATAACC - 1? 

I YES. 

j NO. BREAK TO MONITOR. 

TEMPORARY RETURN TO MONITOR 

THEN CONTINUE AT NEXT INSTRUCTION. 

I TIMEOUT? 

i NO. 

j YES. 

lERROR-NO DATA ACCEPTED 

j SET UP FOR ERROR CALL 

j SET ERROR CODE TYPE 
X-REF ERROR COOE 6 DESCRIPTIVE MESSAGE. 
ASCII MESSAGE CALL WITH COMMON HEADER 

j CALL ERROR, PRINT ALL REGS. 

*************************************** 

*************************************** 



MOVB 
WAIT.l 
MOV 
BIT 



RO,I0R(R5) 

50, DATAACC, CIR, C2 

050, DELCNT 

0DATAACC,CIR(R5) 



C2 



BNE 

BREAK 

BREAK*, BEGIN 



j TEST FOR 'FORCE ERROR' SET. 
IF FORCE ERROR SET GO TO NEXT ERROR MSG. 
JUMP TO NEXT ERROR. 
IF NO FORCE ERROR THEN JUST CONTINUE. 

jCLEAR DATA ACCEPT BIT 

SET LISTENER BASE ADDRESS 
ADD IN IEC11A ADDRESS 

iSET INDIVIDUAL LISTENER 

I SEND ADDR DOWN IEC BUS 

lOATA ACCEPTED? 

I WAIT ( 50 US ) FOR DATAACC - 1. 

i BIT DATAACC - 1? 
\ YES. 

j NO. BREAK TO MONITOR. 
TfcMPORARI RETURN TO MONITOR 



12 
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SEQ 21 



642 



643 

644 
645 
646 



64 7 
648 

649 
650 
651 
652 
653 



654 
655 



6S6 
65/ 
656 



003046 
003052 
003056 

003060 
003060 
003064 
003072 

0030 72 
003100 



104407 
005367 
001365 



004 767 
012767 



000000 
003004 



001666 

000025 175014 



ER15 



003106 
003110 
003112 
003112 
003116 
003120 
003124 
003126 
003126 
003134 
003134 
003142 
OOM42 
003144 
003146 
003154 
003154 
003160 
003166 
003172 
003174 
003200 
003200 
003204 
003210 
003216 
003216 
003224 
003232 
003234 
0032 £,6 
003236 
003244 

003252 
003254 
003254 
003260 
v03264 
003270 



659 003272 
003272 

Q032V6 



104403 000000' 006220 



003100 104405 000000' 006110 



000240 
000240 

005767 
001402 
000167 
000240 

042765 

052765 

000240 
000240 
042764 

016701 
016764 
012700 
005400 
010064 

016702 
062702 
012767 

056764 
052764 
005003 
000240 

012767 
032765 

001032 

104407 
104407 
005367 
001365 



004 767 
012767 



002764 
000146 

100000 
000004 



000000 
000002 



64$; 
C2: 



177400 000000 

174744 

174742 000004 

000377 

000002 

174720 
000400 
003542' 002642 

174 706 000000 
000001 000000 



TDAT 



000050 002616 
100000 000000 64$; 



000000' 
000000' 
002572 



001454 

000025 174602 



ER16; 



ERRB 66,25 
JSR PC.ESETB 
MOV 025.ERRTYP 
MSGN MSG66 
MSGN$, BEGIN >MSG66 
HRDER REGTAB 



BREAK$, BEGIN j THEN CONTINUE AT NEXT INSTRUCTION. 

DEC DELCNT , TIMEOUT? 

BNE 64$ i NO. 

YES. 
ERROR -NO DATA ACCEPTED 
SET UP FOR ERROR CALL 
SET ERROR CODE TYPE 
,X-REF ERROR CODE 6 DESCRIPTIVE MESSAGE 
{ASCII MESSAGE CALL WITH COMMON HEADER 
j CALL ERROR, PRINT ALL REGS, 

HRDER$, BEGIN, REGTAB j 

NOP 

NOP 

TEST FE,ER16 

TST FE 

BEQ 64$ 

JMP ER16 

NOP 

CLR. DATAACC 

BIC 00ATAACCCIRCR5:) 

SET. GTS 



j TEST FOR 'FORCE ERROR 
j IF FORCE ERROR SET GO TO NEXT 
{JUMP TO NEXT ERROR. 
ilF NO FORCE ERROR THEN 

j YES THEN CLEAR 



SET. 
ERROR 



MSG, 



JUST 
IT. 



CONTINUE. 



BIS 

SCOPE 

NOP 

NOP 

BIC 

BUF1 

MOV 

MOV 

MOV 

NEG 

MOV 

BUF2 

MOV 

ADD 

MOV 

GO 

BIS 

BIS 

CLR 

NOP 

WAIT. 

MOV 

BIT 



0GTS.SMRCR5) 



*HIBYTE,CSR(R4) 

RBUFVA.R1 

RBUFPA.BARCR4) 

0377, RO 

RO 

R0,BCR(R4) 

RBUFVA.R2 
0256. ,R2 

OLB.MYRTN 



j GO TO STANDBY. 



{CLEAR INTERRUPTABLE BITS 



{SET BUFFER ADDRESS 



SET BYTE COUNT REG 



I SET INTERRUPT RETURN 
{START SUCKING DATA 



{INIT 
SOME 



COUNTER 
TIME 



RBUFEA,CSRCR4) 

01.CSRCR4) 

R3 

{GIVE IT 

50.DATAACC.CIR.RSET 

050, DELCNT 

00ATAACC,CIRtR5) 

I BIT DATAACC - 1? 
BNE RSET , YES. 

BREAK , NO. BREAK TO MONITOR. 

BREAK!, BEGIN {TEMPORARY RETURN TO MONITOR.... 

BREAI<$, BEGIN {THEN CONTINUE Af NEXT INSTRUCTION, 



j WAIT ( 50 US 



jDATA ACCEPTED? 
) FOR DATAACC « 1 



DEC DELCNT 

BNE 64 $ 

ERRB 66,25 

JSR PC.ESETB 

MOV 025.ERRTYP 



i TIMEOUT? 
{ NO. 
I YES, 

,N0 DATA ACCEPTED 

j SET UP FOR ERROR CALL 

1 SET ERROR CODE TYPE 



J2 
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660 



661 

662 
663 
664 
6b5 
666 



667 



668 
669 
670 
671 



003304 
003304 
003312 



104403 000000' 006220 



003312 104405 000000* 006110* 



003320 
003322 
003324 
003324 
003330 
003332 
003336 
003340 
003340 
003346 
003352 
003354 
003360 
003362 
003362 
003366 
003374 
003574 
003402 



672 



003410 
003412 
003414 
003414 
003420 
003422 
003426 
003430 

003436 
003440 
003440 
003446 

003454 
003456 
003456 
003462 
003466 
003472 

003474 
0034 74 
003500 
003506 
003506 
003514 

003514 



000240 
000240 

005767 
001402 
000167 
000240 

042765 
116522 
005203 
022703 
001023 

004 767 
012767 
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MSGN MSG66 |X-REF ERROR CODE £ DESCRIPTIVE MESSAGE. 

MSGN$, BEGIN, MSG66 i ASCII MESSAGE CALL WITH COMMON HEADER 
HRDER REGTAB f CALL ERROR, PRINT ALL REGS. 

. * + + + + + ** + *.»**************** + *********************************** 
HRDER$, BEGIN, REGTAB j 

NOP 



SEQ 22 



002552 
000024 



100000 000000 
0O0005 



64$: 
RSET: 



000400 



001364 

000023 174512 



ER17 5 



104403 000000* 006244 



003402 104405 000000' 006110 



000240 
000240 

005767 
001402 
000167 
0002)0 
032764 

001676 

012767 
032765 

001032 

104407 
104407 
005367 
001365 



004 767 
012767 

104403 
104405 



002462 

000046 

64$; 
000200 000000 BT: 



000050 002414 
100000 000000 64$: 



000000* 
000000' 
002370 



001252 

000025 174400 

000000' 006220 



000000' 006110 1 



ER18: 



NOP 

TEST 

TST 

BEQ 

JMP 

NOP 

CLR. DATAACC 



FE.ER17 
FE 
64$ 
ER17 



tTEST FOR 'FORCE ERROR' SET. 
I IF FORCE ERROR SET GO TO NEXT ERROR MSG. 
I JUMP TO NEXT ERROR. 
>IF NO FORCE ERROR THEN JUST CONTINUE. 

jGET READY FOR NEXT XFER 

j SAVE DATA FROM LISTENER 
j ADD XFER TO COUNTER 
{RIGHT NO. OF XFERS? 
j SHOULD NEVER GET HERE!! 
iBYTE COUNTER NEVER OVRFLD 
; SET UP FOR ERROR CALL 
; SET ERROR CODE TYPE 

iX-REF ERROR CODE £ DESCRIPTIVE MESSAGE. 

j ASCII MESSAGE CALL UITH COMMON HEADER 
j CALL ERROR, PRINT ALL REGS. 

HRDER$. BEGIN, REGTAB i 

NOP 

NOP 

TEST 

TST 

BEQ 

JMP 

NOP 

BIT 



BIC 

MOVB 

INC 

CMP 

BNE 

ERRB 

JSR 

MOV 

MSGN 



0DATAACC.CIRCR5) 

I0RH6CR5),CR2)* 

R3 

4400, R3 

BT 

71,23 

PC.ESETB 

*23,ERRTYP 

MSG71 
MSGNI, BEGIN, MSG71 
HRDER REGTAB 



FE.ER18 
FE 

£R18 

0BIT7,CSR(R4) 



j TEST FOR 'FORCE ERROR' SET, 
j IF FORCE ERROR SET GO TO NEXT ERROR MSG. 
I JUMP TO NEXT ERROR, 
j IF NO FORCE ERROR THEN JUST CONTINUE, 

iOID INTR ON 'B 1 OCCUR? 



BEQ TDAT 

UAIT.X 50. DATAACC, CIR, LB 

MOV 450.DELCNT 

BIT *DATAACL\CIR(R5) 

LB 



j IF NOT SEND MORE DATA 

iCHECK LAST DATA BYTE 
j WAIT ( 50 US ) FOR DATAACC ■ 1. 



BNE 
BREAK 

BREAM, BEGIN 
BREAK$, BEGIN 
DEC DELCNT 
BNE 64$ 



ERRB 66,25 
JSR PC.ESETB 
MOV 025.ERRTYP 
MSGN MSG66 
MSGN$, BEGIN, MSG66 
HRDER REGTAB 

HROER$ l BEGIN,REGTAB | 



i BIT DATAACC • 1? 

: YES. 

j NO, BREAK TO MONITOR. 
{TEMPORARY RETURN TO MONITOR.... 
I THEN CONTINUE AT NEXT INSTRUCTION. 

I TIMEOUT? 

j NO. 

{ YES. 

jNO DATA ACCEPTED 

j SET UP FOR ERROR CALL 

j SET ERROR CODE TYPE 
iX-REF ERROR CODE C DESCRIPTIVE MESSAGE 
{ASCII MESSAGE CALL WITH COMMON HEADER 

j CALL ERROR, PRINT ALL REGS. 
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SEQ 23 



003522 


000240 




003524 


000240 




673 003526 






003526 


005767 


00235C. 


003532 


001402 




003534 


000167 


000036 


003540 


0C0240 




674 003542 


116522 


000005 


675 003546 






003546 


012703 


000400 


003552 






003552 


016701 


174346 


003556 






003556 


016702 


174342 


003362 


062702 


000400 


003566 


005303 




003570 


001425 




003572 


122221 




003574 


001774 




676 003576 






003576 


004 767 


001150 


003602 


012767 


000023 174276 


003610 






003610 


104403 


000000' 006250 


003616 






003616 


104405 


000000' 006110 


003624 


000240 




003626 


000240 




677 003630 






U03630 


005767 


002246 


003634 


001402 




003636 


000167 


000156 


003642 


000240 




678 






679 






680 






681 






682 






683 






684 






605 






686 






687 003644 






003644 


052765 


000040 000000 


003652 


052764 


000010 000000 


688 






684 003660 


012703 


000400 


690 003664 






003664 


01o702 


174234 


003670 


062702 


000400 


691 003674 


110322 




692 003676 


005303 




693 003700 


001375 




694 003702 







64$; 



NOP 



I TEST FOR 'FORCE ERROR 4 SET. 
I IF FORCE ERROR SET GO TO NEXT ERROR MSG, 
j JUMP TO NEXT ERROR. 
I IF NO FORCE ERROR THEN JUST CONTINUE. 

tREAD LAST BYTE 





NOP 






TEST 


FE.ER19 




TST 


FE 




BEQ 


64$ 




JMP 


ER19 


64*5 


NOP 




LB: 


MOVB 


I0RHBCR5),CR2)^ 




COMPARE TB5 




MOV 


6400, R3 




BUF1 






MOV 


RBUFVA.R1 




BUT2 






MOV 


RBUFVA,R2 




ADO 


0256,, R2 


64$: 


DEC 


R3 




BEQ 


TB5 




CMPB 


(R2)».CR1)» 




BEQ 


64$ 


ER19: 


ERRB 


72,23 




JSR 


PC.ESETB 




MOV 


623,ERRTYP 




MSGN 


MSG72 




MSGN$,I 


3EGIN.MSG72 




HRDER 


REGTAB 



:SET UP FOR 256. COMPARES 



{KEEP TRACK 

i IF DONE GO TO NEXT TEST 

j COMPARE DATA 

j IF GOOD DO IT AGAIN 

;OATA IS NOT THE SAME 

l SET UP FOR ERROR CALL 

j SET ERROR CODE TYPE 

;X-REF ERROR CODE 6 DESCRIPTIVE MESSAGE. 

I ASCII MESSAGE CALL UITH COMMON HEADER 
i CALL ERROR. PRINT ALL REGS. 

HRDER$, BEGIN, REGTAB ; 

NOP 

NOP 

VEST FE.ER20 

TST FE {TEST FOR 'FORCE ERROR' SET. 

BEQ 64$ 5 IF FORCE ERROR SET GO TO NEXT ERROR MSU. 

JMP ER20 j JUMP TO NEXT ERROR. 

NOP j IF NO FORCE ERROR THEN JUST CONTINUE, 



I IEC11-C TEST IEC11-A IS TALKER AND IEC11-B IS LISTENER 



j THIS TEST WILL TRANSFER 256 BYTES FROM IEC11-A TO IEC11-B 

I - ' 

TB5: MASTERCLEAR 

BIS 6BIT5.CIRCR5) 

66IT3.CSRCR4) 



BIS 



BU: 



MOV 


6400 ,R3 


BUF2 




MOV 


RBUFVA.R? 


ADD 


6256. ,R2 


MOVB 


R3.CR2)* 


DEC 


R3 


BNE 


BU 


SET.! 


>ACS 



{CLEAR THE WORLD 

iSET UP FOR 256 BYTE XFER 



{PUT BYTES IN BUFFER 

j IS BUFFER FULL? 

j NO GO STUFF ANOTHER BYTE 

5 SET SACS 



L.2 
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SEQ 24 



003702 

695 003710 
003710 

696 003716 
003716 
003724 
003724 
003730 
003734 
003740 

697 003742 
698 

699 

700 003750 

701 003754 
702 

703 003760 

704 003764 
003764 
003772 

004000 
004002 
004002 
004006 
004012 
004016 

705 004020 
004020 
004024 
004032 
004032 
004040 



004046 
004050 

706 004052 
004052 
004056 
004060 
004064 

707 004066 
004066 

708 

709 004074 

710 004100 
711 

712 

713 

714 004104 

715 

716 

717 004110 



052765 

052765 

012767 

104407 
104407 
005367 
001371 



000001 000000 

000100 000002 

000050 002136 

OOOOOC 
000000' 
002122 



BIS 



tfSACS,CIRCR5) 



64$ 



042765 177400 000000 G2j 



016700 
066700 



002122 
002126 



110065 000004 



012767 
032765 

001032 

104407 
104407 
005367 
001365 



004767 
012767 



000050 0020 70 
100000 000000 64$: 



000000 ' 
000000' 
002044 



000726 

000025 174054 



ER20: 



104403 000000 ' 006220' 



004040 104405 000000' 006110 



000240 
000240 

005767 
001402 
00016 7 
000240 



002024 
000060 



042765 100000 000000 



64 i: 
B$s 



016700 
066700 



002000 
002O00 



110065 000004 



SET. SIC 

BIS 0SIC.SMRCR5) 

DELAY 50 

MOV 050, DELCNT 

BREAK 

BREAK*, BEGIN 

BREAK* .BEGIN 

DEC DELCNT 

BNE 64$ 



BIC 



MOV 
ADD 



0HIBYTE.CIRCR5) 



TBAS.RO 
AAOR.RO 



{SET SIC 

{GIVE IT SOME TIME. 

t DELAY ( 50 US ). 

j BREAK TO MONITOR. 

{TEMPORARY RETURN TO MONITOR 

j THEN CONTINUE AT NEXT INSTRUCTION 

j TIMEOUT? 

i NO. 

{CLEAR INTERRUPTABLE BITS 



{SET TALKER BASE ADDRESS 
;ADD IN IEC11A ADDRESS 



MOVB R0,I0R(R5) 

WAIT.l 50,DATAACC,CIR,B 

MOV $50, DELCNT 

BIT *0ATAACC,CIR(R5) 

BNE B$ 

BREAK 

BREAK $, BEGIN 

BREAK$, BEGIN 

DEC DELCNT 

BNE 64$ 

ERRB 66 , 25 
•J3R PC.ESETB 
MOV 025.ERRTYP 
MSGN MSG66 
MSGN$. BEGIN. MSG66 
HRDER REGTAB 

;****«****************** 

HRDER$. BEGIN. REGTAB 

{ *********************** 

NOP 

NOP 

TEST FE.ER21 

TST FE 

BEQ 64$ 

JMP F.R21 

NOP 

CLR.DATAACC 

BIC 0DATAACC,CIR(R5) 

MOV LBAS.RO 
ADD BADR.RO 



MOVB R0.I0RCR5) 



{SEND IT DOWN THE BUS 

;IS DATA ACCEPTED? 
5 WAIT ( 50 US ) FOR DATAACC * 1. 



1? 



; BIT DATAACC 

i YES. 

I NO. BREAK TO MONITOR. 

{TEMPORARY RETURN TO MONITOR 

;THEN CONTINUE AT NEXT INSTRUCTION. 

} TIMEOUT? 

j NO. 

j YES. 

{NO DATA ACCEPTED 

j SET UP FOR ERROR CALL 

{ SET ERROR CODE TYPE 
jX-REF ERROR CODE 6 DESCRIPTIVE MESSAGE 
i ASCI I MESSAGE CALL WITH COMMON HEADER 

i CALL ERROR. PRINT ALL REGS. 

**************************************** 
*** J. V ******* ************** ************** 



{TEST FOR 'FORCE ERROR' SET. 
{IF FORCE ERROR SET GO TO NEXT ERROR MSG. 
{JUMP TO NEXT ERROR. 
{IF NO FORCE ERROR THEN JUST CONTINUE. 

j RESET 



{BUILD 
{LISTENER 

{ADDRESS 

{FOR 



jIECll-B 



WAIT.l 50.DArAACC,Cin,C$ 



KA s-\ 



M2 



^T 0EC ^y* sie * 
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SEQ 25 



004110 
004116 

004124 
004126 
004126 
004132 
004136 
004142 

718 004144 
004144 
004150 
004156 
0C4156 
004164 



004172 
004174 

719 004176 
004176 
004202 
004204 
004210 

720 004212 
004212 

721 
722 

723 004220 
004220 

724 004226 

725 004234 
004234 

726 004240 

727 004246 

728 004252 

729 004254 

730 004260 
004260 
004264 

731 

732 004270 
004270 
004276 

733 

734 004304 

735 004 306 

736 004312 
004312 
004 320 

004326 
004330 
004350 
004 534 



012767 
032765 

001032 

104407 
104407 
005367 
001365 



004767 
012767 



000050 001744 
100000 000000 64$: 



000000 ' 

000000 

001720 



ER21 



000602 

000025 173730 



104403 000000' 006220 



004164 104405 000000' 006110 1 



000240 
000240 

005767 
001402 
000167 
000240 



052765 
042764 

016701 
016764 
012703 
005403 
010364 

016702 
062702 



056764 
052764 

005003 
112265 

012767 
032765 

001032 

104407 
104407 



001700 
000136 



042765 100000 000000 



64$: 

C$: 



000004 000002 
177400 000000 

173664 

173662 000004 

000377 

000002 

17 3640 
000400 



173634 000000 
000001 000000 



000004 



TALK: 



000050 001542 
100000 000000 64$: 



000000' 
000000' 



MOV 


050.DELCNT 


BIT 


0DATAACC.CIRCR5) 


BNE 


CI 


BREAK 




BREAK $ 


.BEGIN 


BREAI<$ 


.BEGIN 


DEC 


DELCNT 


BNE 


64$ 


ERRB 


66, 2 r 


uSR 


PC.ESETB 


MOV 


425.ERRTYP 


MSGN 


MSG66 


MSGN$, 


BEGIN. MSG66 


HROER 


REGTAB 


************************ 


HRDER$ 


.BEGIN. REGTAB 


; *********************** 


NOP 




NOP 




TEST 


FE,ER22 


TST 


FE 


BEQ 


64$ 


JMP 


ER22 


NOP 




CLR. DATAACC 


BIC 


0DATAACC.CIRCR5) 



SET, GTS 
BIS 

BIC 
BUF1 

MOV 

MOV 

MOV 

NEG 

MCV 

BUF2 

MOV 

ADD 

GO 

BIS 

BIS 



*GTS,SMRCR5) 
^HIBYTE.CSR(R4) 

RBUFVA.R1 

RBUFPA.BARCR4) 

0377, R3 

R3 

R3.BCRCR4) 

RBUFVA.R2 
0256., R2 



RBUFEA.CSRCR4) 
ftl,CSR(R4) 



} WAIT C 50 US ) FOR DATAACC - 1 

i BIT DATAACC - 17 

} YES. 

5 NO. BREAK TO 10NIT0R. 
{TEMPORARY RETURN TO ruJNITOR . . . . 
jTHFN CONTINUE AT NEXT INSTRUCTION. 

; TIMEOUT? 

i NO. 

; YES. 

j NO DATA ACCEPTED 

I SET UP FOR ERROR CALL 

; SET ERROR CODE TYPE 
jX-REF ERROR CODE 6 DESCRIPTIVE MESSAGE 
{ASCII MESSAGE CALL WITH COMMON HEADER 

: CALL ERROR, PRINT ALL REGS. 
**************************************** 

« 
**************************************** 



{TEST FOR 'FORCE ERROR' SET. 
j IF FORCE ERROR SEV GO TO NEXT ERROR MSG 
sJUMP TO NEXT ERROR. 
I IF NO FORCE ERROR THEN JUST CONTINUE, 

jRESET 



iGO TO STANDBY 

jCLEAR INTERRUPTABLE BITS 



{SET BUFFER FOR IEC11-B 
;256 BYTES WORTH 

{SET UP BYTE COUNTER 



{START TALKING 



5 



j I'M TALKING 
j WAIT ( 50 US 



CLR (-13 

MOVB CR2)»,I0R(R5) 

WAIT.l 50.DATAACC.CIR.D2 

MOV 050, DELCNT 

BIT 0DATAACC.CIRCR5:) 

i BIT DATAACC 
BNE D2 ; YES. 

BREAK j NO. BREAK TO MONITOR. 

BREAK $ .BEGIN ; TEMPORARY RETURN TO MONITOR.... 

BREAK*, BEGIN {THEN CONTINUE AT NEXT INSTRUCTION, 



{DID YOU HEAR ME? 
) FOR DATAACC » 1. 

1? 



M3 



N2 
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SEQ 26 



004340 
004344 

737 004346 
004346 
004352 
004360 
004360 
004366 



004374 
004376 
73 J 004400 
004400 
004404 
004406 
004412 

739 004414 
004414 

740 004422 

741 004430 

742 004432 

743 004434 

744 004440 

745 004442 
004442 
004446 
004454 
00,454 
004462 



004470 
004472 

746 0044 74 
004474 
004500 
004502 
004506 

747 

743 004510 
004510 
004514 
004514 
004520 
004520 
004524 
004530 
004532 
0045:54 
004536 

749 004540 
004540 
004544 



005367 001516 
001365 



004 767 000400 

012767 000025 173526 

104403 000000' 006220' 



DEC 
BNE 



DELCNT 
64$ 



ER22 



004366 104405 000000' 006110' 



000240 
000240 

005767 
001402 
000167 
000240 

042765 
032764 
001027 
005203 
022703 
001322 

004 767 
012767 



001476 
000030 



100000 OO^XO 
000200 000000 



64$; 
D2: 



000400 



000304 
000023 



ER23 



173432 
104403 000000' 006244 



004462 104405 000000' 006110' 



000240 
000240 

005767 001402 

001402 

000167 000032 

000240 



012703 000400 

016701 173404 

016702 173400 
062702 000400 
005303 
001425 
322221 
001774 

004/6 7 000206 

012767 000023 173334 



64*: 
CKDT5t 



64$ s 



ER24: 



ERRB 66,25 
JSR PC.ESETB 
MOV 025.ERRTYP 
MSGN MSG66 
MSGN*. BEGIN. MSG66 
HROER REGTAB 

*********************** 

HRDER$, BEGIN, REGTAB 

;********************** 

NOP 

NOP 

TEST FE.ER23 

TST FE 

BEQ «4$ 

JMP :R23 

NOP 

CLR.DATPACC 

BIC 0DATAACC.CIRCR5 

BIT 08IT7.CSRCR4) 

BNE CKDT5 

INC R3 

CMP 0400, R3 

BNE TALK 

ERRB 71,23 

JSR PC.ESETB 

MOV 023,ERRTYP 

MSGN MSG71 

MSGN$, BEGIN. MSG71 

HRDER REGTAB 

******** A ************** 

HRDER* , BEGIN, REGTAB 

I 4********************* 

NOP 

NOP 

TEST FL.ER24 

TST FE 

BEQ 64$ 

JMP ER24 

NOP 



i TIMEOUT? 
j NO. 

yCC 

{NO DATA ACCEPTED 

} SET UP FOR ERROR CALL 

{ SET ERROR CODE TYPE 
jX-REF ERROR CODE S DESCRIPTIVE MESSAGE, 
j ASCII MESSAGE CALL WITH COMMON HEADER 

} CALL ERROR, PRINT ALL REGS. 
***************************************** 

s 

************************************ *A* A* 



) 



{TEST FOR 'FORCE ERROR' SET. 
IF FORCE ERROR SET GO TO NEXT ERROR MSG 
JUMP TO NEXT ERROR. 
IF NO FORCE ERROR THEN JUST CONTINUE. 

{YES-RESET 



COMPARE 

MOV 

BUF1 

MOV 

BUF2 

MOV 

ADD 

DEC 

BEQ 

CMPB 

BEQ 

ERRB 

JSR 

MOV 



TEND 
0400, R3 

RBUFVA.R1 

RBUFVA.R2 
0256, ,R2 
R3 

TEND 

(R2)*,(R1)» 

64$ 

72,23 

PC.ESETB 

023,ERRTYP 



jLAST BYTE? 
i YES-GO CHECK DATA 
{COUNT BYTES ANYUAY 
{SHOULD NEVER GET HERE 
{I'VE GOT MORE TO SAY 
{BYTE COUNTER NEVER OVFL'D 
j SET UP FOR ERROR CALL 
i SET ERROR CODE TYPE 
;X-REF ERROR CODE £ DESCRIPTIVE MESSAGE 
; ASCII MESSAGE CALL WITH COMMON HEADER 

{ CALL ERROR, PRINT ALL REGS. 
***************************************** 

I 

***************************************** 



;TEST FOR 'FORCE ERROR' SET. 
; IF roRCE ERROR SET GO TO NEXT ERROR MSG. 
{JUMP TO NEXT ERROR, 
{IF NO FORCE ERROR THEN JUST CONTINUE. 



{SET UP FOR 256. COMPARES 



{KEEP TRACK 
IF DONE GO TO NEXT TEST 
COMPARE DATA 

IF GOOD DO IT AGAIN 
ERROR DATA NOT EQUAL 

SET UP FOR ERROR CALL 
j SET ERROR CODE TYPE 
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004560 
004560 



104405 000000 



004566 000240 

004570 000240 
750 004572 

004572 005767 001304 

004576 0C1402 

004600 000167 174044 

004604 000240 
751 

752 004606 

004606 052765 000040 

004614 052764 000010 

753 004622 

004622 104413 000000' 

754 004626 000167 173420 



006250* 
006110' 



MSGN MSG72 
MSGNI, BEGIN, MSG72 
IWER REGTAB 



jX-REF ERROR CODE C DESCRIPTIVE MESSAGE 
i ASCII MESSAGE CALL WITH COMMON HEADER 
I CALL ERROR, PRINT ALL REGS. 



I 



HPDERI, BEGIN, REGTAB i 
NOP 



I TEST FOR 'FORCE ERROR' SET. 
I IF FORCE ERROR SET GO TO NEXT ERROR MSG, 
jJUMP TO NEXT ERROR. 
I IF NO FORCE ERROR THEN JUST CONTINUE, 







NOP 








TEST 


FE.ER1 






TST 


FE 






BEQ 


641 






JMP 


ER1 




64$: 


NOP 






TEND} 


MASTERCLEAR 


000000 




BIS 


#BIT5.CIR(R5) 


000000 




BIS 

ENOIT 


*eiT3,CSR(R4) 






ENDIT* 


♦BEGIN 



JMP 



RESTRT 



j CLEAR THE WORLD. 



j SIGNAL ENO OF ITERATION 
jSIGNAL ENO OF ITERATION, 
■MONITOR SHALL TEST END OF PASS 

INEXT ITERATION, 



SEQ 27 



C3 
ffi?iRBI9 / SWv5fF68u4fel clSER M MACR0 M1 *°° 3 °- MAR - 84 Uil ° PAGt 15 



SEQ 28 



757 
758 
759 004632 



00463^ 000004 000000' 004640' 



760 

761 004140 016705 173230 GOIRTN: MOV 

762 004644 142765 177400 000000 BICB 

763 004t>52 000177 001212 JMP 
764 

765 004656 INTSVBj P.TRQ 



.SBTTL INTERUPT SERVICE ROUTINE 
INTSVCs PIRQ GOIRTN 

^IRQt, BEGIN, GOIRTN 

I 



SVR5 R5 

♦HIBYTE.CIRCR5) 

QIRTN 

ITRB 



004656 000004 000000' 004664' 

766 

767 004664 016704 173202 ITRDt 

7b6 004670 142764 177400 000000 

769 004676 000177 001156 

770 
771 
7/2 

773 
7 74 
775 
7 76 
777 



PIRQI, BEGIN, ITRB 
i 



MOV SVR4.R4 

BICB 0MIBYTE I CSR(R4) 

JMP QMYRTN 



I QUEUE UP TO CONTINUE AT GOIRTN AND RTT 



I RESTORE R5, 

I CLEAR INTERUPT BITS. 

I RETURN, 



j QUEUE UP TO CONTINUE AT ITRB AND RTI 



i RESTORE R4. 
jCLEMR INT BITS, 
j RE TURN, 



IECA OEC/XU SYSTEM EXERCISER 1 


SUBROUTINES 






780 








761 








78.? 








763 








784 








785 








786 


004702 


010567 


173172 


787 


004706 


011567 


173170 


788 


004712 


010500 




789 


004714 


010067 


001170 


790 


004 720 


062700 


000002 


791 


004724 


010067 


001162 


792 


004730 


062700 


000002 


793 


004734 


010067 


001154 


794 


004740 


062700 


000002 


795 


004 744 


010067 


001146 


796 


004 750 


000207 




797 








798 








799 


004752 


010467 


173122 


800 


004 756 


011467 


173120 


801 


004 762 


010400 




802 


004 764 


010067 


001130 


803 


004770 


062700 


000002 


804 


004774 


01006". 


001122 


805 


0050O0 


062700 


000002 


806 


005004 


010067 


001114 


807 


005010 


062700 


000002 


808 


005014 


010067 


001106 


809 


005020 


010500 




810 


005022 


010067 


001062 


811 


005026 


062700 


000002 


812 


005032 


010067 


001054 


813 


005036 


062700 


000002 


814 


005042 


010067 


001046 


815 


005046 


062700 


000002 


816 


005052 


010067 


001040 


817 


005056 


000207 
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SEQ 29 



.SBTTL SUBROUTINES 



! SUBROUTINE 
J - 

ESETUPi MOV 

MOV 
MOV 
MOV 
ADO 
MOV 
ADO 
MOV 
AOD 
MOV 
RTS 



ESETBi MOV 



- SET UP FOR ERROR CALL, 



R5,CSRA 

(R5),ACSR 

R5.R0 

RO.CIRPTR 

02, RO 

RO.SMRPTR 

*2 t R0 

RO.IORPTR 

*2,R0 

RO.VSRPTR 

PC 



I SET UP CSR (CIR) ADDRESS. 
} SET UP CSR CCIR) CONTENTS. 
I SET UP REG POINTERS IN TABLE. 



R4.CSRA 

MOV 

MOV 

MOV 

ADD 

MOV 

ADD 

MOV 

ADO 

MOV 

MOV 

MOV 

ADD 

MOV 

ADD 

MOV 

ADD 

MOV 

RfS 



jSET 
(R4),ACSR 
R4.R0 
RO,CSRPTR 
«2,R0 

ro.bcrptr 
•;: . ro 
ro.barptr 

02, RO 

RO.MCRPTR 
R5.R0 
RO.CIRPTR 
02. RO 
RO.SMRPTR 

#2,R0 

RO.IORPTR 

02.R0 

RO.VSRPTR 

PC 



UP CSR ADDRESS 
iSET UP CSR 
I SET UP REG 



CONTENTS 
POINTERS 



IN TABLE 



jSET UP FOR IECn»A 



cBnstSn < Ts x ^o s v^Iabl^! 



EJ5 
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SEQ 30 



820 






821 


005060 




822 


006060 


000000 


823 


006062 


000000 


824 


006064 


000000 


825 


006066 


oooooo 


826 


006070 


000000 


827 


006072 


oooooo 


828 


006074 


oooooo 


829 


006076 


000100 


830 


006100 


000040 


831 


006102 


oooooo 


832 


006104 


000036 


833 


006106 


000035 


834 






835 


006110 




836 


006110 


OOOOOO 


837 


006112 


000002 


838 


006114 


000004 


839 


006116 


000006 


840 


006120 


OOOOOO 


841 


006122 


OO0002 


842 


006124 


000004 


84 3 


006126 


000006 


844 


006130 


006072' 


845 


006132 


177777 



BUFIN: 

MYRTN: 

DELCNT: 

RANMOD: 

LOOP; 

IRTN; 

DATBUF- 

GOT: 

TBAS; 

LBAS: 

FE: 

BAOR: 
AAOR; 

REGTAB: 
CIRPTR: 
SMRPTR: 
lORPTRs 
VSRPTRj 
CSRPTR; 
BCRPTR: 
BARPTR: 
MCRPTR; 
DBPTRj 



.S9TTL 

.BLKB 















100 

40 



36 
35 



CIR 

SMR 

IOR 

VSR 

CSR 

BCR 

BAR 

MCR 

DATBUF 

-I 



CONSTANTS 
512, 



AND VARIABLES. 



RETURN ADDRESS FOR INTERRUPTS 

DELAY COUNTER. 

RANDOM MODE (O-NOT RANDOM, -1 -RANDOM) 

LOOP COUNTER. 

INTERUPT RETURN ADDRESS. 

DATA WORD OR BYTE BUFFER, 

DATA ACTUALLY GOTTEN. 
TALKER BASE ADDRESS 
LISTENER BASE ADDRESS 
FORCE ERROR -NORMALLY ZERO -WHEN SET WILL FORCE ALL ERROR PRINTOUTS 

IEC11-B IEEE BUS ADDRESS 
IEC11-A IEEE BUS ADDRESS 

REGISTER POINTERS SAVED HERE FOR ERR DUMPING. 

CIR POINTER (AFTER R5 ADDED IN). 

SMP POINTER (AFTER R5 ADDED IN). 

IOR POINTER (AFTER R5 ADDED IN). 

VSR POINTER (AFTER R5 ADDED IN). 
CSR POINTER (AFTER R4 ADDED IN.) 
BCR POINDS 
BAR POINlE* 
MCR POINTER 

DATBUF (DATA BUFFER) POINTER. 

TABLE TERMINATOR. 



IECM DEC'XU SYSTEM EXERCISER M MACRO M1200 
ASCII MESSAGES 



F3 
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SEQ 31 



851 












.SBTTL 


ASCII t 


1ESSA 


852 


















85.} 


006134 


006254 • 






MSG46j 


EMSG46 






854 


006136 


177777 








-) 






855 


006140 


006330' 






MSG50; 


EMSG50 






856 


006142 


177777 








-1 






857 


006144 


006431* 






MSG52: 


EMSG52 






858 


006146 


177777 








-1 






859 


006150 


006532* 






MSG53; 


EMSG53 






860 


006152 


177777 








-1 






861 


006154 


006606' 






MSG54: 


EMSG54 






862 


006156 


177777 








-1 






863 


006160 


006743* 






MSG55: 


EMSG55 






864 


006162 


177777 








-1 






865 


006164 


007040' 






MSG56j 


EMSG56 






866 


006166 


177777 








-1 






867 


006170 


007173' 






MSG57: 


EMSG57 






863 


006172 


' '7777 








-1 






860 


006174 


Gv72?l 






MSG60: 


EMSG60 






870 


006176 


177777 








-1 






871 


006200 


007366* 






MSG62: 


EMSG62 






872 


006202 


177777 








-1 






873 


006204 


007454' 






MSG63: 


EMSG63 






874 


006206 


177777 








-1 






875 


006210 


007550' 






MSG64 : 


EM3G64 






876 


006212 


177777 








-1 






877 


006 P 14 


007612' 






MSG65; 


EMSG65 






878 


00- L6 


;77/77 








1 






879 


006<-'20 


007656' 






MSG66; 


EMSG66 






880 


006222 


. 77/77 








-1 






681 


006224 


007731' 






MSG67: 


EMSG67 






882 


006226 


177777 








-1 






883 


006230 


010005* 






MSG68; 


EMSG68 






884 


006232 


177777 








-1 






885 


006234 


010053' 






MSG69: 


EMSG69 






886 


006236 


177777 








-I 






887 


006240 


010103' 






MSG70: 


EMSG70 






888 


006242 


177777 








-1 






889 


006244 


010135' 






MSG71i 


EMSG71 






890 


006246 


177777 








-1 






891 


006250 


010206' 






MSG72! 


EMSG72 






892 


006252 


177777 








-I 






893 


















894 


006254 


105 


122 


122 


EMSG46 


, ASCIZ 


'ERROR 


46 - 


895 


006330 


105 


122 


122 


EMSG50 


.ASCIZ 


'ERROR 


50 - 


896 


0064 31 


105 


122 


122 


EMSG52 


.ASCIZ 


'ERROR 


52 - 


897 


006532 


105 


122 


122 


EMSG53 


.ASCIZ 


'ERROR 


53 - 


898 


006606 


105 


122 


122 


EMSG54 


.ASCII 


* ERROR 


54 - 


899 


006677 


045 


124 


110 




.ASCIZ 


•#THE FIRST 


900 


006743 


105 


122 


122 


EMSG55 


.ASCIZ 


' ERROR 


55 - 


901 


007040 


105 


122 


122 


EMSG56 


.ASCII 


* ERROR 


56 - 


902 


007142 


045 


1.04 


111 




.ASCIZ 


•*OID NOT B 


903 


007173 


105 


122 


122 


EMSG57 


.ASCIZ 


' ERROR 


57 - 


904 


007271 


105 


122 


122 


EMSG60 


.ASCIZ 


• ERROR 


60 - 


905 


007 366 


105 


122 


122 


EMSG62 


.ASCIZ 


' ERROR 


62 - 


906 


007454 


105 


122 


122 


EMSG63 


.ASCIZ 


'ERROR 


63 • 


907 


QG7tt>Q 


105 


122 


122 


EMSG64 


i .ASCXZ 


1 &RRQR 


64 - 



NO INTERUPT 
', NO 'LACS'* 



READING' 



"TCS" DOES NOT PRODUCE "ILlhSGE"' 
WHEN SENDING THE LISTENER ADDRESS, 
AFTER LISTENER ADDRESSING ANT) "GTS 
NO INTERUPT TO TALKER ADDRESSING' 
WHEN SENDING A SECONO DATA BYTE BEFORE 
AGAIN, "OATAACC" CAME UP' 

FIRST DATA B^ TE SENT AND RECEIVED IS N'JT I HE 
AFTER READING THE FIRST SENT DATA BYTE, >!E 
BRING "OATAACC"' 

SECOND DATA BYTE SENT AND RECEIVED IS NOT THE SAME 
SENDING OF DATA BYTE DOES NOT PRODUCE AN INTERUPT' 
DATA BYTES SENT ANO RECEIVED ARE NOT EQUAL' 
NO "DATAACC" WHEN SENDING A BYTE WITH "LAS TBI IE 1 *' 
NC "END" TO "LASTBYTE"* 



OCCURS' 
IS SET' 



SAME' 
SECONO 



SENT 



G3 



IECA DEC/X11 : 
ASCII MESSAGE! 
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SEQ 32 



908 007612 105 122 122 EMSG65 

909 007656 105 122 122 EMSG66 

910 007751 105 122 122 EMSG67 

911 010005 105 122 122 EMSG68 

912 010053 105 122 12? EMSG69 

913 010103 105 122 122 EMSG70 

914 01013b 105 122 122 EMSG71 

915 010206 105 122 122 EMSG72 
916 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



ERROR 65 - 
ERROR B45- 
ERROR B46- 
ERROR B4 7- 
' ERROR B48 
'ERROR B49 
•ERROR B50 
' ERROR B51 



OATA CHECK ON "LASTBYTE"' 
NO DATA ACCEPTED CIEC11-B TEST)* 
NOT ENOUGH BYTES TRANSFERRED YET* 
TOO MANY BYTES TRANSFERRED' 

CACS NOT SET' 

SIAS NOT CLEAR' 

BYTE COUNTER NEVER OVERFLOWED' 
• DATA SENT NOT EQUAL TO DATA RECD 



H3 
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END OF PROGRAM 

*»22 .SBTTL END OF PROGRAM 

923 010262 000001 PENDj »END 



IECA DEC/X11 SYSTEM EXERCISER M MACRO M1200 
SYM80L TABLE 



AADR 

AC5R 

ADDR 

ADDR22- 

ALL 

APTPRE* 

ASB 

ASTAT 

AUTO » 

AWAS 

BADR 

BAR 

BARPTR 

BCR 

BCRPTR 

BEGIN 

BITO - 

BIT1 - 

BITIO - 

BIT11 » 

BIT12 - 

BIT13 * 

BIT14 - 

BIT15 - 

BIT? - 

BIT3 « 

BIT4 - 

BIT5 » 

BIT6 - 

BIT7 - 

BITS - 

DIT9 « 

BREAKS* 

BR1 

BR2 

Bf 

BTODS - 

BU 

BIT IN 

Bt 

CACS - 

CAPRES- 

CDATAI- 

CDtRCl 

CDWOCT 

CIR 

CIRPTR 

CK0T5 

CKHNGS* 

CLKPRE- 

CLKSPS* 

CONFIG 

CSBS - 

CSR 

CSRA 

CSRPTR 

c* 



006106R 

000102R 

000006R 

OOIOOO 

177777 

000200 

000106R 

0001 04 R 

000010 

OOOUOR 

006104R 

000004 

006124R 

000002 

006122R 

OOOOOOR 

000001 

000002 

002000 

004000 

010000 

020000 

040000 

100000 

000004 

000010 

000020 

000040 

000100 

000200 

000400 

001000 

104407 

OO0012R 

0000 13R 

003430R 

104421 

003674R 

00506 OR 

004066R 

000400 

000004 

104412 

000144R 

000146R 

000000 

006110R 

0O451OR 

000001 

000001 

104422 

000056R 

001000 

000000 

00C100R 

00fcl20R 

004a 12R 



CI 


003002R 


C2 


003126R 


DATAAC- 


100000 


DATBUT 


006072R 


DATCKS- 


104411 


DATERS- 


104404 


DBPTR 


006130R 


DELCNT 


006062R 


DVT.01 


000014R 


02 


0044 14R 


ECCMEM- 


000100 


EF 


000001 


EMSG46 


006254R 


EMSG50 


006330R 


EMSG52 


0064 3 1R 


EMSG53 


006532R 


EMSG54 


006606R 


EMSG55 


006743R 


EMSG56 


00704 OR 


EMSG57 


007173R 


EMSG60 


0072 7 \R 


EMSG62 


007366R 


EMSG63 


0O7454R 


EMSG64 


007550R 


EMSG65 


007612R 


EMSG66 


007656R 


EMSG67 


007731R 


EMSG68 


010005R 


EMSG69 


010053R 


EMSG70 


010103R 


EMSG71 


010135R 


EMSG72 


010206R 


END 


020000 


ENOITS- 


104413 


ENO* - 


104410 


ERRTYP 


000106R 


ER1 


000650R 


ER10 


002134R 


ERll 


002342R 


ER12 


002420R 


ER13 


002514R 


ER14 


0O2734R 


ER15 


00306 OR 


F.R16 


O03272R 


ER17 


003362R 


ER18 


003474R 


ER19 


003576R 


ER2 


001030R 


ER20 


004020R 


ER21 


004144R 


ER22 


004346R 


ER23 


004442R 


FR24 


004 54 OR 


ER3 


001150R 


ER4 


001260R 


FR5 


001434R 


ER6 


G01530R 
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ER7 


001606R 


MSG54 


0061 54 R 


ER8 


OO1702R 


MSG55 


006160R 


ER9 


002040R 


MSG56 


006164R 


ESETB 


004/52R 


MSG57 


006170R 


ESETUP 


OO4 702R 


MSG60 


006174R 


EXITS - 


104400 


MSG62 


006200R 


FE 


006102R 


MSG63 


006204R 


FREE 


000150R 


MSG6< 


0062 IOR 


GETPAS- 


104415 


MSG65 


006214R 


GOIRTN 


0O4640R 


MSG66 


006220R 


GOT 


006074R 


MSG67 


006224R 


GTS 


000004 


MSG68 


006230R 


GueuFi- 


104414 


MSG69 


006234R 


G2 


0O3742R 


MbG70 


006240R 


HIBYTE- 


177400 


MSG71 


006244R 


HROCNT 


000044 R 


MSG72 


006250R 


HRDERS- 


104405 


MYRTN 


006060R 


HRDPAS 


0OO050R 


NCPUOP' 


• 000020 


ICONT 


0OO036R 


NOAPTY" 


■ 000002 


ICOUNT 


000040R 


NULL • 


• 000000 


I0NUM 


0OO122R 


OPEN » 


• 000000 


IE 


000100 


OTOAS • 


■ 104420 


ILLMSG- 


010000 


PARPRE- 


■ 002000 


IMOOX . - 


000000 


PASCNT 


0O0034R 


INOPAR- 


000040 


POPFH^ 


' 000002 


INIT 


0OO030R 


POPLSI- 


■ 020000 


INTENB- 


000100 


PDP44 « 


■ 100000 


INTR 


000120R 


PDP60 • 


• 004000 


INTSVB 


0O4656R 


PDP70 • 


• 010000 


INTSVC 


0O4632R 


PENO 


010262R 


IOR 


000004 


PIRQS « 


■ 000004 


IORHB ■ 


000005 


POPSP ■ 


■ 005726 


IORPTR 


0O6114R 


P0PSP2' 


• 022626 


IRTN 


0O607OR 


PRHMSI" 


■ 000002 


ITRB 


0O4664R 


PRTY « 


■ 000000 


KTPRES- 


000400 


PRTYO 


• 000000 


KTXTND- 


040000 


PRTY1 « 


■ 000040 


LACS - 


010000 


PRTY2 ■ 


• cooioo 


LAST8Y- 


000004 


PRTY3 ■ 


> 000140 


LB 


0O3542R 


PRTY4 - 


■ 00020O 


LBAS 


0O610OR 


PRTY5 


■ 000240 


L08YTE- 


000377 


PRTY6 


• 000300 


LOOP 


006066R 


PRTY7 ■ 


• 000340 


MAP22I- 


104416 


PS 


• 177776 


MC 


000040 


PSW 


• 177776 


MCB 


000010 


PUSH 


• 005746 


MCR 


000006 


PLSH2 


- 024646 


MCRPTR 


006126R 


PWRFLG 


• 000002 


MODNAM 


OOOOOOR 


QM0N22 


- 000010 


MOOSP 


000252R 


RAND* 


• 104417 


MSGNS • 


104403 


RANMOD 


006064R 


MSGSS ■ 


104402 


R ANNUM 


000054R 


MSG* - 


104401 


RBUFEA 


000130R 


MSG46 


006134R 


RBUFPA 


000126R 


MSG50 


006140R 


RBUFS7 


000132R 


MSC52 


006144R 


RBUFVA 


000124R 


MSG53 


00615QR 


REGTAFJ 


Q06UQR 



SEQ 34 



RESTRT 


000252R 


RES1 


000056R 


RES2 


000060R 


RH70 * 


001000 


RSET 


003340R 


RSTRT 


000U2R 


R6 


K000006 


R7 


1500000 7 


SACS - 


000001 


SBADR 


000102R 


SIAS - 


020000 


SIC 


000100 


SMR 


000002 


SMRPTR 


006112R 


SOFCNT 


000042R 


SOFERS- 


104406 


SOFPAS 


000046R 


SPOINT 


000032R 


SPSIZ - 


000040 


SRI 


000016R 


SR2 


000020R 


SR3 


000022R 


SR4 


000024R 


START 


000252R 


STAT 


000026R 


STATEO 


000400 


SVRO 


000062R 


SVR 1 


000064R 


SVR2 


000066R 


SVR3 


0000 70R 


SVR4 


000O72R 


SVR5 


000074R 


SVR6 


0O0O76R 


SYSCNT 


0OO052R 


TALK 


004306R 


TBAS 


0060 76R 


TB2 


0O2656R 


TB5 


0O3644R 


TCA 


000002 


TCS 


0O0001 


TDAT 


003234R 


TEND 


004606R 


TRPDFD* 


000023 


TSTIEA 


0004 26R 


TST4B 


002562R 


Tl 


000442R 


T10 


OO1750R 


Til 


002006R 


T12 


002106R 


T13 


002106R 


T14 


002202R 


T15 


002232R 


T16 


0024 IOR 


T17 


002466R 


T2 


0007 16R 


T^ 


0010 76R 


T4 


001076R 



J3 
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SEQ 35 



T5 
T6 
T7 
TS 



001216R 
001326R 
001502R 
001576R 



T9 001654R 
USTACK- 000001 
VECTOR 000010R 
VSR - 000006 



. ABS. 000000 000 
010262 001 
ERRORS DETECTED; 



VSRPTR 006116R 
WASAOR 000104R 
WBUFEA 000136R 



WBUFPA 000134R 
WBUFRQ 000140R 
WBUFS2 0Q0142R 



WDFR 0001 16R 
UDTO 0001 14R 
XFLAG 000005R 



VIRTUAL MEMORY USED: 15112 WORDS ( 60 PAGES) 
DYNAMIC MEMORY: 20060 WORDS ( 77 PAGES) 
ELAPSED TIME: 00:00:36 
XIECAO , XIECAO/ v SP *DDXCOM , MAC . XIECAO » MAC 



DOCUMENT 




...Bl 


DOCUMENT 




...CI 


DOCUMENT 




...Dl 


DOCUMENT 




...El 


DOXCOM 


HEADER 




...Fl 


DOXCOM 


HEADER 




...Gl 


MACRO 


DEFINITIONS 


• ■ 


...HI 


MACRO DEFINITIONS 


» i 


.♦.11 


MACRO DEFINITIONS 


* i 


...Jl 


EQUATES 




...Kl 


START 


- RESTART - 


TE. 


...LI 


START 


- RESTART - 


TE 


...Ml 


S.ART 


- RESTART - 


TE, 


...NX 


START 


- RESTART - 


TE 


...B2 


START 


- RESTART - 


TE 


...C2 


START 


- RESTART - 


TE 


...02 


START 


- RESTART - 


TE 


...E2 


START 


- RESTART - 


TE 


. ..F? 


START 


- RESTART - 


TE 


...G2 


START 


- RESTART - 


TE 


. , » . I t-V. 


START 


- RESTART - 


TE 


...12 


START 


~ RESTART - 


TE 


...J2 


START 


- RESTART - 


TE 


,..KL> 


START 


- RESTART - 


TE 


. ...L2 


START 


- RESTART - 


TE 


M2 


START 


- RESTART - 


TE 


N2 


START 


- RESTART - 


TE 


63 


INTERUPT SERVICE 


ROU 


C3 


SUBROUTINES 




03 


CONSTANTS AND VARIAB 


E3 


ASCII 


MESSAGES 




F3 


ASCII 


MESSAGES 




G3 


END OF 


PROGRAH 




H3 


SYMBOL 


TABLE 




13 


SYMBOL 


TABLE 




J3 



